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
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
