Formatação avançada do Excel

Question

A imagem abaixo mostra o que desejo alcançar:

Explicação:

Tenho uma tabela misturada com texto sem formato e texto em negrito+itálico. Quero alterar o formato do texto em negrito + itálico para texto em negrito com destaque laranja. O texto sem formato permanece inalterado.

Exceto formatar um por um manualmente, existe alguma maneira mais fácil e rápida de formatá-lo?

Answer 1

Isso pode ser conseguido usando VBA. Este código foi testado no Excel 2013. Embora você não tenha mencionado a versão, ele deve ser genérico o suficiente para funcionar no Excel 2003 também, apenas por precaução.

Na sua planilha, pressione Alt+ F11para abrir o Editor VBA. DeInserirmenu, insira umMódulo. Clique duas vezes no módulo inserido no painel esquerdo para abrir seu editor de código.

Agora cole o seguinte código nele.

Public Sub myformat()

  Dim rng As Range
  Set rng = Range("Sheet1!D4:D11")  'Specify the desired SheetName!Range here
  For Each cel In rng.Cells
    If cel.Font.Bold = True And cel.Font.Italic = True Then
        cel.Font.Italic = False
        cel.Interior.ColorIndex = 44  '44 is the color index number for standard Orange in Excel
    End If   
  Next cel

End Sub

Isso cria uma macro VBA chamada myformat. Aqui você precisa especificar manualmente o SheetName!Range. Neste exemplo Sheet1!D4:D11está o intervalo de dados. Salve e volte para a planilha.

Pressione Alt+ F8para acessar a caixa de diálogo Macro e execute esta myformatmacro para obter o efeito desejado.

Answer 2

1. Formate uma das células para o formato necessário (negrito + preenchimento laranja)

2. Selecione essa célula eDuplo clickPintor de formato
   

3. Selecione as células que deseja formatar. Você pode clicar manualmente neles um por um ou arrastar se for um intervalo contíguo.