Hur listar jag alla kommentarer till ett nytt kalkylblad eller en arbetsbok i Excel?

Om du har en arbetsbok med för många kommentarer och vill lista alla kommentarer till ett nytt kalkylblad eller en arbetsbok för att granska alla kommentarer, hur kan du göra det? Följande metoder kan hjälpa dig att snabbt lista alla kommentarer i ett kalkylblad / arbetsbok till ett nytt kalkylblad eller arbetsbok i Excel.

Lista alla kommentarer till ett nytt kalkylblad med VBA-kod

Lista alla kommentarer till ett nytt kalkylblad eller en arbetsbok med Kutools för Excel

Lista alla kommentarer till ett nytt kalkylblad med VBA-kod

Följande VBA-kod visar alla kommentarer till ett nytt kalkylblad i aktuell arbetsbok. I det nya kalkylbladet listas alla kommentarer i hela arbetsboken i en lista med arknamn, celladress, kommentarinnehåll och cellnamn. Använd denna metod enligt följande:

1. Klicka Utvecklare > Visual Basic, visar den Microsoft Visual Basic för applikationer fönster. Och klicka Insert > Modulerna, och mata sedan in följande VBA-koder i modulen.

VBA: listar alla kommentarer i ett nytt kalkylblad.

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. Klicka sedan  för att köra koden, så får du ett nytt kalkylblad med alla kommentarer i den aktuella arbetsboken. Se skärmdump:

Lista alla kommentarer till ett nytt kalkylblad eller arbetsbok med ett klick

Med Skapa kommentarlista of Kutools för Excel, kan du snabbt lista alla kommentarer till ett nytt kalkylblad eller en ny arbetsbok.

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Hämta nu.

1. Klicka på om du har installerat Kutools för Excel Kutools > Snarare > Skapa kommentarlista, se skärmdump:

2. I Skapa kommentarlista dialog ruta:

• Välj det omfång som du vill lista en kommentar, du kan välja Aktivt ark or Alla lakan.
• Ange sedan platsen som du vill placera kommentarlistan, du kan lista kommentarerna i en ny arbetsbok eller ett nytt ark, se skärmdump:

3. Och klicka sedan på Skapaknapp. Ett nytt kalkylblad kommer att läggas till för att lista alla aktiva kalkylarkommentarer med dess attribut såsom arknamn, cellreferenser, rad och kolumn. Se skärmdump:

För mer detaljerad information om Skapa kommentarlista, besök Skapa beskrivning av kommentarlistan.

Relaterade artiklar:

• Ändra alla kommentarformat i celler
• Ändra författarens namn på alla kommentarer
• Hitta och ersätt text i kommentarer
• Visa eller dölj alla kommentarer och kommentarindikatorer i Excel
• Konvertera cellinnehåll till kommentarer i Excel
• Konvertera kommentarer till cellinnehåll i Excel