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 
v Remover 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 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 Sub3. 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.
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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins