Como contar o número de células com comentários no Excel?
Você já tentou contar o número de comentários em uma planilha? Neste artigo, vou apresentar alguns truques rápidos para contar quantas células contêm comentários em uma planilha.
Conte o número de células que contêm comentários com a função Ir para Especial
Conte o número de células que contêm comentários com Função Definida pelo Usuário
Conte o número de células que contêm comentários com código VBA
Conte o número de células que contêm comentários com a função Ir para Especial
Com o recurso Ir para Especial no Excel, você pode selecionar todas as células de comentário primeiro e depois visualizar o número da contagem na barra de status.
1. Vá para clicar em Página Inicial > Localizar e Selecionar > Ir para Especial, veja a captura de tela:
2. Na caixa de diálogo Ir para Especial, marque a opção Comentários na seção Selecionar, veja a captura de tela:
3. Em seguida, clique no botão OK para fechar esta caixa de diálogo, e todas as células na planilha ativa que contêm comentários serão selecionadas de uma vez. E você pode obter o número de comentários na barra de status. Veja a captura de tela:
Observação: Se você tiver células em branco com comentários, os comentários das células em branco não serão contados.
Dica: Você também pode pressionar os atalhos Ctrl + G para abrir a caixa de diálogo Ir para e clicar no botão Especial para mostrar a caixa de diálogo Ir para Especial.
Conte o número de células que contêm comentários com Função Definida pelo Usuário
O método acima tem sua própria desvantagem, então podemos criar uma Função Definida pelo Usuário para contar todos os comentários de células, incluindo os comentários de células em branco.
1. Mantenha pressionado as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.
Código VBA: Contar o número de células com comentário
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. Em seguida, salve e feche o código, volte para a planilha, em uma célula em branco insira esta fórmula: =countcomments(A1), (A1 é uma referência de célula, você pode alterá-la para qualquer outro endereço de célula), veja a captura de tela:
4. Em seguida, pressione a tecla Enter, e você obterá o número de comentários de células.
Conte o número de células que contêm comentários com código VBA
O seguinte código VBA também pode ajudá-lo a contar todos os comentários de células, incluindo os comentários de células em branco.
1. Mantenha pressionado as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.
Código VBA: Contar o número de células com comentário
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de selecionar um intervalo de dados onde deseja contar os comentários de células. Veja a captura de tela:
4. E depois clique em OK, você obterá o número de comentários de células na seleção.
Artigos relacionados:
Como listar todos os comentários em uma nova planilha ou pasta de trabalho no Excel?
Como encontrar e substituir texto dentro de comentários no Excel?
Como inserir rapidamente um comentário em várias células 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