Skip to main content

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

Author: Tech Support Last Modified: 2025-05-29

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

all comments are displayed in whole workbook


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:

create comment list with kutools

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:

create comment list with kutools to get the result

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


Articoli correlati:

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l'analisi dei dati grazie a: Esecuzione Intelligente | Genera Codice | Crea Formule Personalizzate | Analizza Dati e Genera Grafici | Richiama Funzioni avanzate di Kutools
Funzionalità popolari: Trova, evidenzia o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda...
Super RICERCA.VERT: Ricerca VERT con criteri multipli | Ricerca VERT con valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestione Colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Attiva/disattiva la visibilità delle colonne nascoste | Confronta intervalli e colonne...
Funzionalità in evidenza: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestione Cartella di lavoro e Foglio di lavoro | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email tramite elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...) ...
Top15 set di strumenti:12 strumenti di testo (Aggiungi testo, Elimina Caratteri Specifici, ...) | Oltre50 tipi di grafici (Diagramma di Gantt, ...) | Oltre40 formule pratiche (Calcola l'età in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti di unione e divisione (Unione avanzata righe, Dividi celle, ...) | ... e molto altro

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
  • Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!