Cum se listează toate comentariile la o nouă foaie de lucru sau registru de lucru în Excel?

Dacă aveți un registru de lucru cu prea multe comentarii și doriți să enumerați toate comentariile într-o nouă foaie de lucru sau registru de lucru pentru examinarea tuturor comentariilor, cum puteți face? Următoarele metode vă pot ajuta să listați rapid toate comentariile unei foi de lucru / registru de lucru la o nouă foaie de lucru sau registru de lucru în Excel.

Enumerați toate comentariile la o nouă foaie de lucru cu cod VBA

Enumerați toate comentariile la o nouă foaie de lucru sau registru de lucru cu Kutools pentru Excel

Enumerați toate comentariile la o nouă foaie de lucru cu cod VBA

Uimitor! Utilizarea unor file eficiente în Excel, cum ar fi Chrome, Firefox și Safari!

Economisiți 50% din timp și reduceți mii de clicuri de mouse pentru dvs. în fiecare zi!

---

Următorul cod VBA va lista toate comentariile la o nouă foaie de lucru din registrul de lucru curent. În noua foaie de lucru, va lista toate comentariile întregului registru de lucru într-o listă cu numele foii, adresa celulei, conținutul comentariului și numele celulei. Vă rugăm să utilizați această metodă după cum urmează:

1. Clic Dezvoltator > Visual Basic, afișează Microsoft Visual Basic pentru aplicații fereastră. Și faceți clic Insera > Moduleși apoi introduceți următoarele coduri VBA în modul.

VBA: listează toate comentariile într-o nouă foaie de lucru.

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. Apoi apasa  pentru a rula codul și veți obține o nouă foaie de lucru cu toate comentariile din registrul de lucru curent. Vedeți captura de ecran:

Enumerați toate comentariile la o nouă foaie de lucru sau registru de lucru cu un singur clic

Cu Creați o listă de comentarii of Kutools pentru Excel, puteți lista rapid toate comentariile la o nouă foaie de lucru sau un nou registru de lucru.

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Ia-l acum.

1. Dacă ați instalat Kutools pentru Excel, faceți clic pe Kutools > Mai Mult > Creați o listă de comentarii, vezi captura de ecran:

2. În Creați o listă de comentarii căsuță de dialog:

• Selectați domeniul de aplicare pe care doriți să-l listați comentariul, pe care îl puteți alege Foaie activă or Toate foile.
• Apoi specificați locația în care doriți să puneți lista de comentarii, puteți lista comentariile într-un nou registru de lucru sau într-o foaie nouă, vedeți captura de ecran:

3. Apoi faceți clic pe Creabuton. O nouă foaie de lucru va fi adăugată pentru a lista toate comentariile de foaie de lucru active cu atributele sale, cum ar fi numele foii, referințele celulei, rândul și coloana. Vedeți captura de ecran:

Pentru informații mai detaliate despre Creați o listă de comentarii, Vă rugăm să vizitați Creați o descriere a funcției Lista de comentarii.

Legate de articole:

• Schimbați toate formatele de comentarii din celule
• Schimbați numele autorului tuturor comentariilor
• Găsiți și înlocuiți textul din comentarii
• Afișați sau ascundeți toate comentariile și indicatorii de comentarii în Excel
• Convertiți conținutul celulei în comentarii în Excel
• Convertiți comentariile în conținutul celulei în Excel

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...