Hoppa till huvudinnehåll

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


pil blå höger bubbla 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 doc-lista-kommentarer-1 för att köra koden, så får du ett nytt kalkylblad med alla kommentarer i den aktuella arbetsboken. Se skärmdump:

doc-lista-kommentarer-2


pil blå höger bubbla 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:

doc-lista-kommentarer-3-3

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:

doc-lista-kommentarer-4-4

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:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

kte-flik 201905


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations