Come elencare tutti i commenti nel workbook corrente in un nuovo foglio di lavoro o in un nuovo workbook in Excel?

Se hai un workbook con troppi commenti e vuoi elencare tutti i commenti in un nuovo foglio di lavoro o in un nuovo workbook per rivederli, come puoi fare? I seguenti metodi possono aiutarti a elencare rapidamente tutti i commenti di un foglio di lavoro / workbook in un nuovo foglio di lavoro o workbook in Excel.

Usa il codice VBA per elencare tutti i commenti nel workbook corrente in un nuovo foglio di lavoro

Usa Kutools per Excel per elencare tutti i commenti nel workbook corrente in un nuovo foglio di lavoro o workbook

Usa il codice VBA per elencare tutti i commenti nel workbook corrente in un nuovo foglio di lavoro

Il seguente codice VBA elencherà tutti i commenti nel workbook corrente in un nuovo foglio di lavoro. Nel nuovo foglio di lavoro, verranno elencati tutti i commenti dell'intero workbook in una lista con il nome del foglio, l'indirizzo della cella, il contenuto del commento e il nome della cella. Utilizza questo metodo come segue:

1. Clicca su "Sviluppatore" > "Visual Basic", si aprirà la finestra "Microsoft Visual Basic for Applications". Poi clicca su "Inserisci" > "Modulo", e inserisci il seguente codice VBA nel Modulo.

VBA: elenca tutti i commenti in un nuovo foglio di lavoro.

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. Poi clicca per eseguire il codice, e otterrai un nuovo foglio di lavoro con tutti i commenti presenti nel workbook corrente. Vedi screenshot:

Usa Kutools per Excel per elencare tutti i commenti nel workbook corrente in un nuovo foglio di lavoro o workbook

Con la funzione "Crea elenco commenti" di "Kutools per Excel", puoi elencare rapidamente tutti i commenti in un nuovo foglio di lavoro o in un nuovo workbook.

Kutools per Excel: con oltre 300 utili add-in per Excel, prova gratuita senza limitazioni per 30 giorni. Ottienilo Ora.

1. Se hai installato Kutools per Excel, clicca su "Kutools" > "Altro" > "Crea elenco commenti."

2. Nella finestra di dialogo "Crea elenco commenti":

• Seleziona l'ambito in cui desideri elencare i commenti, puoi scegliere "Foglio di lavoro corrente" o "Tutti i fogli di lavoro".
• Quindi specifica la posizione in cui vuoi inserire l'elenco dei commenti, puoi elencare i commenti in un nuovo workbook o in un nuovo foglio, vedi screenshot:

3. E poi clicca sul pulsante "Crea". Un nuovo foglio di lavoro verrà aggiunto per elencare tutti i commenti del foglio attivo con i relativi attributi come nome del foglio, riferimenti delle celle, righe e colonne. Vedi screenshot:

Per ulteriori informazioni dettagliate su "Crea elenco commenti", visita la descrizione della funzione Crea elenco commenti.

Articoli correlati:

• Cambia tutti i formati dei commenti nelle celle
• Cambia il nome dell'autore di tutti i commenti
• Trova e sostituisci testo all'interno dei commenti
• Mostra o nascondi tutti i commenti e gli indicatori di commento in Excel
• Converti il contenuto delle celle in commenti in Excel
• Converti i commenti in contenuti delle celle in Excel