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.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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?
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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

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!
