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
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 de birou
Î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!