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

Supondo que você tenha um intervalo de dados com células em negrito e não células em negrito como mostrado na imagem abaixo, agora o que você precisa é remover as células ou linhas, se não estiverem em negrito. Em vez de remover manualmente as células que não estão em negrito, este tutorial apresenta os truques para você resolver rapidamente no Excel.

Remova as linhas se não estiverem em negrito com VBA

Remova as células se não estiverem em negrito com Find and Replace e Select Range Helper

Remova linhas / células se não estiver em negrito com o Kutools para Excel

---

v Remova as linhas se não estiverem em negrito com VBA

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

1. Pressione F11 + Alt chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo, então colado abaixo do código VBA no novo Módulo janela.

VBA: Remova as 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 F5 chave para executar o código VBA. No surgimento Kutools for Excel caixa de diálogo, especifique o intervalo em que irá remover as linhas sem células em negrito e clique no botão OK botão.

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

Nota: as linhas podem ser removidas apenas quando todas as células na mesma linha não estão em negrito.

---

Remova as células se não estiverem em negrito com Find and Replace e Select Range Helper

Se você deseja apenas remover o conteúdo da célula das células que não estão em negrito, você pode usar a função Localizar e Substituir para selecionar as células em negrito primeiro e depois usar Kutools for Excel'S Selecione Range Helper para reverter a seleção das células sem negrito e, em seguida, remova o conteúdo.

1. Selecione o intervalo de dados em que deseja remover as células que não estão em negrito e pressione Ctrl + F Para habilitar Localizar e substituir caixa de diálogo e clique em Opções botão. Veja a imagem:

2. Clique Formato para ir para o Encontrar formato diálogo, e sob fonte guia, selecione Negrito de Estilo de fonte Lista. Veja a imagem:

3. Clique OK > Encontrar tudo, e todas as células em negrito são listadas no Localizar e substituir diálogo e pressione Ctrl + A para selecionar todos eles e, em seguida, feche o Localizar e substituir diálogo. Veja a imagem:

4. Em seguida, mantenha essas células selecionadas e clique em Kutools > Selecionar > Selecione Range Helper. Veja a imagem:

5. Na caixa de diálogo pop-up, verifique Seleção Inversa opção em primeiro lugar e, em seguida, selecione o intervalo de dados original. Agora você pode ver que a seleção está invertida. Veja a imagem:

6. Clique Fechar. Agora pressione Apagar para remover o conteúdo da célula das células sem negrito.

---

Remova linhas / células se não estiver em negrito com o Kutools para Excel

Os métodos acima não são fáceis o suficiente, neste caso, você pode usar Kutools for Excel'S Selecione Células com Formato utilitário para identificar rapidamente células não em negrito e, em seguida, removê-las.

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Selecione o intervalo de dados de que você precisa e clique em Kutools > Selecionar > Selecione Células com Formato. Veja a imagem:

2. Na caixa de diálogo pop-up, clique em Escolha o formato da célula botão para selecionar uma célula sem negrito do intervalo de dados, em seguida, marque Negrito apenas da lista abaixo na seção Fonte. Veja a imagem:

3. Clique Ok, e uma caixa de diálogo aparecerá para lembrá-lo do número de células selecionadas, basta clicar Sim para fechá-lo.

Agora todas as células sem negrito estão selecionadas e pressione Apagar para remover o conteúdo da célula. Ou se você quiser remover as linhas sem negrito, clique com o botão direito em qualquer uma das células selecionadas e selecione Apagar > Linha inteira. Veja as capturas de tela:

  Remover células / linhas se não estiver em negrito

---

Artigos relativos:

• 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?