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 estiverem 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 Destemido do 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 estiverem 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 Destemido 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!