Salt la conținutul principal
 

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

Autor: Asistență tehnică Ultima modificare: 2024-07-30

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


săgeată albastru dreapta balon Enumerați toate comentariile la o nouă foaie de lucru cu cod VBA

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 rulați butonul de cod vba 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:

toate comentariile sunt afișate în întreg registrul de lucru


săgeată albastru dreapta balon 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:

creați o listă de comentarii cu kutools

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:

creați o listă de comentarii cu kutools pentru a obține rezultatul

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:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


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!