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

Se você tem uma pasta de trabalho com muitos comentários e deseja listar todos os comentários em uma nova planilha ou pasta de trabalho para revisar todos os comentários, como pode fazer isso? Os seguintes métodos 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.

Use o código VBA para listar todos os comentários na pasta de trabalho atual para uma nova planilha

Use Kutools para Excel para listar todos os comentários na pasta de trabalho atual para uma nova planilha ou pasta de trabalho

Use o código VBA para listar todos os comentários na pasta de trabalho atual para uma nova planilha

O seguinte código VBA listará todos os comentários na pasta de trabalho atual para uma nova planilha. 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. Por favor, use este método conforme as instruções a seguir:

1. Clique em "Desenvolvedor" > "Visual Basic", isso exibirá a janela "Microsoft Visual Basic for Applications". E clique em "Inserir" > "Módulo", e depois 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. Em seguida, clique no botão para executar o código, e você obterá uma nova planilha com todos os comentários da pasta de trabalho atual. Veja a captura de tela:

Use Kutools para Excel para listar todos os comentários na pasta de trabalho atual para uma nova planilha ou pasta de trabalho

Com o recurso "Criar Lista de Comentários" do "Kutools para Excel", você pode listar rapidamente todos os comentários em uma nova planilha ou uma nova pasta de trabalho.

Kutools para Excel: com mais de 300 complementos úteis para o Excel, grátis para experimentar sem limitação por 30 dias. Obtenha-o Agora.

1. Se você já instalou o Kutools para Excel, clique em "Kutools" > "Mais" > "Criar Lista de Comentários."

2. Na caixa de diálogo "Criar Lista de Comentários":

• Selecione o escopo que você deseja listar os comentários, você pode escolher "Planilha Atual" ou "Todas as Planilhas".
• 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, veja a captura de tela:

3. E então clique no botão "Criar". 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élulas, linha e coluna. Veja a captura de tela:

Para mais informações detalhadas sobre "Criar Lista de Comentários", por favor, visite a descrição do recurso Criar Lista de Comentários.

Artigos relacionados:

• Alterar todos os formatos de comentários nas células
• Alterar o nome do autor de todos os comentários
• Localizar e substituir texto dentro dos comentários
• Mostrar ou ocultar todos os comentários e indicadores de comentários no Excel
• Converter o conteúdo das células em comentários no Excel
• Converter comentários em conteúdo de células no Excel