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 Excluir 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.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis.
Download grátis grátis com todos os recursos em 30 dias

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 Excluir 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 Excluir > Linha inteira. Veja as capturas de tela:

Artigos relativos:

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra...

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!