Como listar todos os comentários do livro de trabalho atual numa nova planilha ou num novo livro no Excel?
Se tiver um livro com demasiados comentários e quiser listá-los todos numa nova folha ou num novo livro para revisão, como pode fazê-lo? Os métodos seguintes permitem-lhe listar rapidamente todos os comentários de uma folha ou livro numa nova folha ou num novo livro no Excel.
Utilizar código VBA para listar todos os comentários do Livro de Trabalho Atual para um Nova planilha
O código VBA seguinte irá listar todos os comentários do Livro de Trabalho Atual para um Nova planilha. No Nova planilha, irá listar todos os comentários do livro inteiro numa lista com o nome da folha, endereço da célula, conteúdo do comentário e nome da célula. Utilize este método da seguinte forma:
1. Clique em «Programador» > «Visual Basic» para abrir a janela «Microsoft Visual Basic para Aplicações». Em seguida, selecione «Inserir» > «Módulo» e introduza o seguinte código VBA no módulo.
VBA: lista todos os comentários numa nova folha de cálculo.
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. Depois, clique no botão 
para executar o código e obterá uma nova planilha com todos os comentários do livro de trabalho atual. Veja a imagem:
Utilizar Kutools para Excel para listar todos os comentários do Livro de Trabalho Atual para um Nova planilha ou livro
Com a função «Criar Lista de Comentários» do Kutools para Excel, pode listar rapidamente todos os comentários numa nova folha de cálculo ou num novo livro.
Kutools para Excel: mais de 300 complementos úteis para o Excel — experimente gratuitamente e sem limitações durante 30 dias.Obtenha já.
1. Se tiver o Kutools para Excel instalado, clique em «Kutools» > «Mais» > «Criar Lista de Comentários».
2. Na caixa de diálogo «Criar Lista de Comentários»:
- Selecione o âmbito em que pretende listar os comentários: pode optar por «Planilha Atual» ou «Todas as folhas».
- Em seguida, indique onde pretende colocar a lista de comentários — pode listá-los num novo livro ou numa nova folha. Veja a imagem:
3. Em seguida, clique no botão «Criar». Será adicionada uma nova folha com a lista de todos os comentários da folha ativa e respetivos atributos, tais como nome da folha, referências de célula, linha e coluna. Veja a imagem:
Para obter mais informações detalhadas sobre «Criar Lista de Comentários», consulte a descrição da funcionalidade 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
- Texto Localizar e Substituir dentro dos comentários
- Mostrar ou ocultar todos os comentários e respetivos indicadores no Excel
- Converter conteúdos das células em comentários no Excel
- Converter comentários em conteúdos das células no Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos