Como remover células ou linhas se não estiverem em negrito no Excel?

Suponha que você tenha um intervalo de dados com células em negrito e células sem negrito, conforme mostrado na captura de tela abaixo. Agora, o que você precisa é remover as células ou linhas que não estão em negrito. Em vez de remover manualmente uma a uma as células sem negrito, este tutorial apresenta alguns truques para resolver isso rapidamente no Excel.

Remover linhas se não estiverem em negrito com VBA

Remover células se não estiverem em negrito com Localizar e Substituir e Assistente de Intervalo

Remover linhas/células se não estiverem em negrito com Kutools para Excel

Para remover linhas se não estiverem em negrito, você pode usar um código VBA para lidar com isso.

1. Pressione as teclas F11 + Alt para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, depois cole o seguinte código VBA na nova janela Módulo.

VBA: Remover linhas se não estiverem em negrito.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. Pressione a tecla F5 para executar o código VBA. Na caixa de diálogo Kutools para Excel que aparece, especifique o intervalo onde deseja remover as linhas sem células em negrito e clique no botão OK.

E então você pode ver que as linhas que não contêm células em negrito foram removidas.

Nota: As linhas só podem ser removidas quando todas as células na mesma linha não estiverem em negrito.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Remover células se não estiverem em negrito com Localizar e Substituir e Assistente de Intervalo

Se você quiser apenas remover os conteúdos das células que não estão em negrito, pode usar a função Localizar e Substituir para selecionar primeiro as células em negrito, depois usar o Assistente de Intervalo do Kutools para Excel para inverter a seleção das células que não estão em negrito e, em seguida, remover os conteúdos.

1. Selecione o intervalo de dados onde deseja remover as células que não estão em negrito e pressione Ctrl + F para habilitar a caixa de diálogo Localizar e Substituir, e clique no botão Opções. Veja a captura de tela:

2. Clique em Formatar para acessar a caixa de diálogo Formato de Localização, e na aba Fonte, selecione Negrito na lista de Estilo da Fonte. Veja a captura de tela:

3. Clique em OK > Localizar Tudo, e todas as células em negrito serão listadas na caixa de diálogo Localizar e Substituir, e pressione Ctrl + A para selecionar todas elas, depois feche a caixa de diálogo Localizar e Substituir. Veja a captura de tela:

4. Depois mantenha essas células selecionadas e clique em Kutools > Selecionar > Assistente de Intervalo. Veja a captura de tela:

5. Na caixa de diálogo que aparece, marque a opção Complemento primeiro e, em seguida, selecione o intervalo de dados original. Agora você pode ver que a seleção foi invertida. Veja a captura de tela:

6. Clique em Fechar. Agora pressione a tecla Delete para remover os conteúdos das células que não estão em negrito.

Remover linhas/células se não estiverem em negrito com Kutools para Excel

Os métodos acima não são fáceis o suficiente; neste caso, você pode usar a ferramenta Selecionar Células com Formato do Kutools para Excel para identificar rapidamente células que não estão em negrito e, em seguida, removê-las.

Após instalar gratuitamente o Kutools para Excel, faça o seguinte:

1. Selecione o intervalo de dados necessário e clique em Kutools > Selecionar > Selecionar Células com Formato. Veja a captura de tela:

2. Na caixa de diálogo que aparece, clique no botão Selecionar Formato a Partir da Célula para escolher uma célula que não está em negrito no intervalo de dados, depois marque somente Negrito na lista abaixo na seção Fonte. Veja a captura de tela:

3. Clique em Ok, e uma caixa de diálogo aparecerá para informar o número de células selecionadas, basta clicar em Sim para fechá-la.

Agora todas as células que não estão em negrito estão selecionadas, e pressione a tecla Delete para remover os conteúdos das células. Ou, se você quiser remover as linhas que não estão em negrito, clique com o botão direito em qualquer uma das células selecionadas e escolha Excluir > Linha Inteira. Veja as capturas de tela:

Demonstração: Remover Células/Linhas Se Não Estiverem em Negrito

Artigos Relacionados:

• Como converter hiperlinks em texto simples no Excel?
• Como contar se as células começam ou terminam com um texto específico no Excel?
• Como contar e remover duplicatas de uma lista no Excel?