Sut i restru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith neu lyfr gwaith newydd yn Excel?

Os oes gennych lyfr gwaith gyda gormod o sylwadau ynddo, a'ch bod am restru'r holl sylwadau i daflen waith neu lyfr gwaith newydd ar gyfer adolygu'r holl sylwadau, sut allwch chi wneud? Gall y dulliau canlynol eich helpu i restru holl sylwadau taflen waith / llyfr gwaith yn gyflym i daflen waith neu lyfr gwaith newydd yn Excel.

Defnyddiwch god VBA i restru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith newydd

Defnyddiwch Kutools ar gyfer Excel i restru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith neu lyfr gwaith newydd

Defnyddiwch god VBA i restru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith newydd

Bydd y cod VBA canlynol yn rhestru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith newydd. Yn y daflen waith newydd, bydd yn rhestru holl sylwadau'r llyfr gwaith cyfan mewn rhestr gydag enw'r ddalen, cyfeiriad cell, cynnwys sylwadau ac enw cell. Defnyddiwch y dull hwn fel a ganlyn:

1. Cliciwch "Datblygwr" > "Visual Basic", mae'n dangos y ffenestr "Microsoft Visual Basic ar gyfer ceisiadau". A chliciwch "Mewnosod" > "Modiwl", ac yna mewnbwn y codau VBA canlynol yn y Modiwl.

VBA: yn rhestru'r holl sylwadau mewn taflen waith newydd.

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. Yna cliciwch  botwm i redeg y cod, a byddwch yn cael taflen waith newydd gyda'r holl sylwadau yn y llyfr gwaith cyfredol. Gweler y screenshot:

Defnyddiwch Kutools ar gyfer Excel i restru'r holl sylwadau yn y llyfr gwaith cyfredol i daflen waith neu lyfr gwaith newydd

Gyda'r "Creu Rhestr Sylwadau" o "Kutools for Excel", gallwch chi restru'r holl sylwadau yn gyflym i daflen waith newydd neu lyfr gwaith newydd.

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

1. Os ydych chi wedi gosod Kutools ar gyfer Excel, cliciwch "Kutools"> "Mwy"> "Creu Rhestr Sylwadau."

2. Yn y blwch deialog "Creu Rhestr Sylwadau":

• Dewiswch y cwmpas rydych chi am restru'r sylw, gallwch ddewis "Taflen weithredol" neu "Pob dalen".
• Yna nodwch y lleoliad rydych chi am roi'r rhestr sylwadau, gallwch chi restru'r sylwadau mewn llyfr gwaith newydd neu ddalen newydd, gweler y screenshot:

3. Ac yna cliciwch botwm "Creu". Bydd taflen waith newydd yn cael ei hychwanegu i restru holl sylwadau'r daflen waith weithredol gyda'i nodweddion megis enw'r ddalen, cyfeirnodau cell, rhes a cholofn. Gweler y sgrinlun:

I gael gwybodaeth fanylach am "Creu Rhestr Sylwadau", ewch i Creu disgrifiad nodwedd Rhestr Sylwadau.

Erthyglau cysylltiedig:

• Newid pob fformat sylwadau mewn celloedd
• Newidiwch enw awdur yr holl sylwadau
• Dod o hyd i destun a'i ddisodli o fewn sylwadau
• Dangos neu guddio'r holl sylwadau a dangosyddion sylwadau yn Excel
• Trosi cynnwys celloedd yn sylwadau yn Excel
• Trosi sylwadau i gynnwys celloedd yn Excel