Como remover células ou linhas que não estejam em negrito no Excel?
Suponha que tenha um intervalo de dados com texto em negrito e sem negrito, como ilustrado na imagem abaixo. O seu objetivo é remover as células ou linhas que não estejam em negrito. Em vez de eliminá-las manualmente, uma a uma, este tutorial mostra-lhe truques práticos para resolver esta tarefa 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 que não estejam em negrito, pode utilizar um código VBA.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código VBA na nova janela do Módulo.
VBA: Remover linhas que não estejam 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. Prima F5 para executar o código VBA. Na caixa de diálogo Kutools para Excel que surge, especifique o intervalo onde pretende remover as linhas sem negrito e clique no botão OK.
Em seguida, verá que as linhas sem 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 KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Remover células se não estiverem em negrito com Localizar e Substituir e Assistente de Intervalo
Se pretender apenas remover os conteúdos das células que não estão em negrito, utilize a função Localizar e Substituir para selecionar primeiro as células em negrito e, de seguida, use a opção Kutools para Excel do Assistente de Intervalo para inverter a seleção — removendo assim os conteúdos das células que não estão em negrito.
1. Selecione o intervalo de dados onde pretende remover as células que não estão em negrito, prima Ctrl + F para abrir a caixa de diálogo Localizar e Substituir e clique no botão Opções. Veja a imagem:
2. Clique em Formato para aceder à caixa de diálogo Formato de Localização e, no separador Fonte, selecione Negrito na lista Estilo da Fonte. Veja a imagem:
3. Clique em OK > Localizar tudo, e todas as células em negrito serão listadas na caixa de diálogo Localizar e Substituir. Prima Ctrl + A para selecionar todas e, em seguida, feche a caixa de diálogo Localizar e Substituir. Veja a imagem:
4. Mantenha estas células selecionadas e clique em Kutools > Selecionar > Assistente de Intervalo. Veja a imagem:
5. Na caixa de diálogo que surge, ative primeiro a opção Seleção Inversa e, de seguida, selecione Intervalo de Dados Original. Verá agora que a seleção foi invertida. Veja a imagem:
6. Clique em Fechar. Agora, prima a tecla Eliminar 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 anteriores não são suficientemente simples. Neste caso, pode utilizar a ferramenta Kutools para Excel do Selecionar células com formato semelhante para identificar rapidamente as células que não estão em negrito e, em seguida, removê-las.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo de dados pretendido e clique em Kutools > Selecionar > Selecionar células com formato semelhante. Veja a imagem:
2. Na caixa de diálogo que surge, clique no botão Selecionar formato a partir da célula para selecionar uma célula que não esteja em negrito no Intervalo de Dados e ative apenas a opção Negrito na lista abaixo, na secção Fonte. Veja a imagem:
3. Clique em OK e surge uma caixa de diálogo a indicar o número de células selecionadas. Basta clicar em Sim para a fechar.
Agora, todas as células que não estão em Negrito estão selecionadas. Prima a tecla Eliminar para remover os respetivos conteúdos. Caso pretenda remover as linhas que não estão em negrito, clique com o botão direito do rato em qualquer uma das células selecionadas e escolha Eliminar > Linha inteiraVeja as imagens:
Demonstração: Remover Células/Linhas Se Não Estiverem em Negrito
Artigos Relacionados:
- Como Converter Hiperlinks para 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 a partir de uma lista no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos