Formatação avançada do Excel

Question

A imagem abaixo mostra o que eu quero alcançar:

Explicação:

Eu tenho uma tabela misturada com texto sem formatação e negrito + texto em itálico. Quero alterar o formato do texto em negrito + itálico para tornar-se texto em negrito com realce em laranja. O texto sem formato permanece inalterado.

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

    

Answer 1

Isso pode ser alcançado usando o VBA. Esse código é testado no Excel 2013. Embora você não tenha mencionado a versão, ela deve ser genérica o suficiente para funcionar no Excel 2003 também por precaução.

Na planilha, pressione Alt + F11 para abrir o VBA Editor. No menu Inserir , insira um Mó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:D11 é o intervalo de dados. Salve e saia de volta para a planilha.

Pressione Alt + F8 para acessar a caixa de diálogo Macro e execute essa macro myformat para obter o efeito desejado.

    

Answer 2

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

2. Selecione essa célula e clique duas vezes em Pincel de formatação

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