Ir para o conteúdo principal

Como listar todos os comentários para uma nova planilha ou pasta de trabalho no Excel?

Se você tiver uma pasta de trabalho com muitos comentários e quiser listar todos os comentários em uma nova planilha ou pasta de trabalho para revisar todos os comentários, como você pode fazer? Os métodos a seguir podem ajudá-lo a listar rapidamente todos os comentários de uma planilha / pasta de trabalho em uma nova planilha ou pasta de trabalho no Excel.

Liste todos os comentários para uma nova planilha com código VBA

Liste todos os comentários em uma nova planilha ou pasta de trabalho com o Kutools para Excel


seta azul bolha direita Liste todos os comentários para uma nova planilha com código VBA

O código VBA a seguir listará todos os comentários para uma nova planilha na pasta de trabalho atual. Na nova planilha, ele listará todos os comentários de toda a pasta de trabalho em uma lista com o nome da planilha, endereço da célula, conteúdo do comentário e nome da célula. Use este método da seguinte maneira:

1. Clique Developer > Visual Basic, ele exibe o Microsoft Visual Basic para aplicativos janela. E clique inserção > Móduloe, a seguir, insira os seguintes códigos VBA no módulo.

VBA: lista todos os comentários em uma nova planilha.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Então clique doc-list-comentários-1 para executar o código e você obterá uma nova planilha com todos os comentários da pasta de trabalho atual. Veja a imagem:

doc-list-comentários-2


seta azul bolha direita Liste todos os comentários para uma nova planilha ou pasta de trabalho com um clique

Com o Criar lista de comentários of Kutools for Excel, você pode listar rapidamente todos os comentários para uma nova planilha ou uma nova pasta de trabalho.

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Get it Now.

1. Se você instalou o Kutools para Excel, clique em Kutools > Mais > Criar lista de comentários, veja a captura de tela:

lista de documentos-comentários-3-3

2. No Criar lista de comentários caixa de diálogo:

  • Selecione o escopo que você deseja listar o comentário, você pode escolher Folha ativa or Todas as folhas.
  • Em seguida, especifique o local onde deseja colocar a lista de comentários, você pode listar os comentários em uma nova pasta de trabalho ou uma nova planilha, consulte a captura de tela:

lista de documentos-comentários-4-4

3. E, em seguida, clique em Criebotão. Uma nova planilha será adicionada para listar todos os comentários da planilha ativa com seus atributos, como nome da planilha, referências de célula, linha e coluna. Veja a imagem:

Para obter informações mais detalhadas sobre Criar lista de comentários, Visite Criar descrição do recurso da lista de comentários.


Artigos relacionados:

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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations