Ir para o conteúdo principal

Como filtrar células por caracteres em negrito no Excel?

Você pode aplicar o estilo de fonte em negrito para formatar os dados ou conteúdos em células no Excel, mas você sabe como filtrar células pelas células que contêm estilo de fonte em negrito no Excel? Este artigo coleta várias macros VBA complicadas para filtrar células por caracteres em negrito no Excel.

Filtre as células em negrito com a coluna auxiliar
Filtre células em negrito com o código VBA
Filtre células em negrito facilmente com uma ferramenta incrível
Mais tutoriais para filtragem de dados ...


Filtre as células em negrito com a coluna de ajuda

Supondo que você precise filtrar todas as células em negrito na coluna B, conforme a captura de tela mostrada abaixo, faça o seguinte:

A função definida pelo usuário a seguir ajuda a identificar se uma célula em uma coluna está em negrito ou não e, em seguida, retorna os resultados como TRUE ou False em uma coluna auxiliar. Você pode filtrar todos os resultados TRUE para exibir apenas as células em negrito na coluna B.

1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para aplicativos janela.

2. No Microsoft Visual Basic para aplicativos janela, clique em inserção > Módulo, em seguida, copie o seguinte código VBA para a janela Módulo. Veja a imagem:

Código VBA: filtre células por caracteres em negrito

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. aperte o outro + Q para fechar a janela de código.

4. Selecione uma célula em branco adjacente à tabela (a célula selecionada deve localizar-se na mesma linha da primeira linha da tabela de filtro), copie a fórmula abaixo nela e pressione o botão entrar chave.

= IsBold (B2)

5. Continue selecionando a primeira célula de resultado e arraste a alça de preenchimento para obter todos os resultados. Veja a imagem:

6. Selecione o cabeçalho da coluna auxiliar, clique Data > Filtro. Clique no botão de seta ao lado da célula do cabeçalho, verifique o VERDADEIRO caixa apenas e clique em OK.

Agora todas as células em negrito na coluna B são filtradas conforme a imagem abaixo mostrada.


Filtre rapidamente células em negrito em uma coluna com vários cliques no Excel:

A Filtrar células em negrito utilidade de Kutools for Excel pode ajudá-lo a filtrar rapidamente todas as células em negrito em uma determinada coluna com vários cliques, como mostrado na demonstração abaixo.
Baixe agora a trilha gratuita completa de 30 dias do Kutools para Excel!


Filtre células em negrito com o código VBA

O código VBA a seguir permite filtrar todas as células em negrito em uma coluna diretamente. Faça o seguinte.

1. Selecione o intervalo da coluna, você filtrará todas as células em negrito, exceto a célula do cabeçalho. Nesse caso, seleciono B2: B16.

2. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para aplicativos janela.

3. No Microsoft Visual Basic para aplicativos janela, clique em inserção > Módulo, em seguida, copie e cole o seguinte código VBA na janela Módulo.

Código VBA: filtre células em negrito em uma coluna

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. aperte o F5 chave para executar esta macro. Em seguida, todas as células em negrito são filtradas imediatamente no intervalo da coluna selecionada.


Filtre células em negrito facilmente com uma ferramenta incrível

Nesta seção, recomendamos uma ferramenta útil - o Filtrar células em negrito utilidade de Kutools for Excel. Com este utilitário, todas as células em negrito na coluna selecionada são filtradas imediatamente com vários cliques.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Selecione o intervalo de colunas em que você filtrará as células em negrito, clique Kutools Plus> Filtro Especial > Filtro Negrito para fazer isso. Veja a demonstração abaixo:

  Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Artigos relacionados

Filtrar várias colunas simultaneamente no Excel
Depois de filtrar uma coluna com o recurso Filtro, apenas os critérios E podem ser aplicados a mais de uma coluna. Nesse caso, como você poderia aplicar os critérios AND e OR para filtrar várias colunas simultaneamente na planilha do Excel? Os métodos neste artigo podem lhe fazer um favor.

Filtre ou selecione células por cor de célula no Excel
Normalmente, você pode preencher células com cores diferentes para qualquer finalidade no Excel. Se você tiver uma planilha com o uso de cores diferentes para indicar diferentes tipos de conteúdo e quiser filtrar ou selecionar essas células pela cor da célula, poderá fazê-lo com os métodos deste artigo.

Colar pulando células e linhas ocultas / filtradas no Excel
Por exemplo, você filtrou uma tabela no Excel, mas agora precisa copiar um intervalo e colar nesta tabela filtrada. Você sabe como colar pulando as células e linhas ocultas / filtradas? Várias maneiras fáceis neste artigo podem ajudá-lo.

Filtre as linhas com base em uma seleção de lista em outra folha
No Excel, geralmente filtramos as linhas com base em um critério, mas se houver duas listas, uma na Planilha1 e outra na Planilha2, você poderia ter algum truque para filtrar rapidamente as linhas na Planilha1 com base na lista na Planilha2? Aqui, este artigo apresenta as maneiras de resolver esse trabalho.

Filtre todos os dados relacionados de células mescladas no Excel
Supondo que haja uma coluna de células mescladas em seu intervalo de dados, e agora, você precisa filtrar esta coluna com células mescladas para mostrar todas as linhas que estão relacionadas com cada célula mesclada conforme as capturas de tela a seguir mostradas. No Excel, o recurso Filtro permite filtrar apenas o primeiro item associado às células mescladas. Neste artigo, estamos falando sobre como filtrar todos os dados relacionados de células mescladas no Excel.

Mais tutoriais para filtragem de dados ...

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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

Descrição


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!
Comments (16)
Rated 4.5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Thanks for sharing, it works wonderful, thank you!
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Thanks for the formula..it helped
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
I've used this technique and had an issue when trying to copy the bold data. It only copies some of the data for some reason. Is there any way of copying only the bold data using this technique? Thanks, Richard
This comment was minimized by the moderator on the site
Dear richard skins,



We didn't encounter the problem as you mentioned. Would you please provide a screenshot with details of your operation?



Thank you for your comment!
This comment was minimized by the moderator on the site
Hi, I'm a complete excel novice, i've done the following technique but now need to copy the data which is bold/true. When I have tried to do this is won't copy what is highlighted. Any ideas on how I can copy the data? Thanks, Richard
This comment was minimized by the moderator on the site
@RICHARD Can u please provide any screenshot of your spreadsheet showing what u are exactly trying to do?
This comment was minimized by the moderator on the site
Thanks for sharing. It works wonderful.
This comment was minimized by the moderator on the site
Hi I am using this code and its working fine but whenever I click on cancel the dialogue box a popup window appear and shows some error. Can you please tell me how to remove that error. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Please Select a Range", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False For Each myRange In Selection If myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Dear Nitin Jain,

Sorry to reply so late!

We have found the proble and fixed it already. The VBA script in the article is now updated,

Thank you for your comment!
This comment was minimized by the moderator on the site
Simple and brilliant, thank you!
This comment was minimized by the moderator on the site
This worked perfectly, thank you!!! :D :lol:
This comment was minimized by the moderator on the site
I presume that column A is the reference Column with Bold cells. I create a Name "Bold?" with the refer to as below =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) In column B, I type: =Bold? Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
@cadafi ur formula works fine but it is not the optimised or efficient use of it. Rather we should use direct reference of the range or a cell in place of that complete offset command. Like the one as follows: =GET.CELL(20,'Sheet1'!A1) Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
Thanks Mohamand Faizan. You are entirely correct.
This comment was minimized by the moderator on the site
@Mohammad Faizan You are entirely correct. Thanks.
This comment was minimized by the moderator on the site
@Cadafi.... thats brilliant... wondering how it works though!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations