Hogyan lehet felsorolni az összes megjegyzés egy új munkalapra vagy munkafüzetre az Excelben?

Ha túl sok megjegyzéssel ellátott munkafüzet van, és az összes megjegyzést új munkalapra vagy munkafüzetre szeretné felsorolni az összes megjegyzés áttekintésére, hogyan teheti meg? A következő módszerek segítségével gyorsan felsorolhatja a munkalap / munkafüzet összes megjegyzését az Excel új munkalapjába vagy munkafüzetébe.

Sorolja fel az összes megjegyzést egy új VBA kóddal ellátott munkalapra

Sorolja fel az összes megjegyzést egy új munkalaphoz vagy munkafüzethez a Kutools for Excel segítségével

Sorolja fel az összes megjegyzést egy új VBA kóddal ellátott munkalapra

A következő VBA-kód felsorolja az új munkalap összes megjegyzését az aktuális munkafüzetben. Az új munkalapon a teljes munkafüzet összes megjegyzését felsorolja a lap nevével, cellacímével, megjegyzés tartalmával és cellanevével. Kérjük, használja ezt a módszert az alábbiak szerint:

1. Kattints Fejlesztő > Visual Basic, megjeleníti a Microsoft Visual Basic alkalmazásokhoz ablak. És kattints betétlap > Modulok, majd írja be a modulba a következő VBA kódokat.

VBA: az összes megjegyzés egy új munkalapon szerepel.

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. Ezután kattintson  gombot a kód futtatásához, és új munkalapot kap az aktuális munkafüzet összes megjegyzésével. Lásd a képernyőképet:

Az összes megjegyzés egy kattintással felsorolható egy új munkalapra vagy munkafüzetre

Aktivitáskövető Hozzászólólista létrehozása of Kutools az Excel számára, gyorsan felsorolhatja az összes megjegyzést egy új munkalapra vagy egy új munkafüzetre.

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Szerezd meg most.

1. Ha telepítette a Kutools for Excel programot, kattintson a gombra Kutools > Több > Hozzászólólista létrehozása, lásd a képernyőképet:

2. Az Hozzászólólista létrehozása párbeszédablak:

• Válassza ki azt a hatókört, amelybe fel szeretné sorolni a megjegyzést, és kiválaszthatja Aktív lap or Minden lap.
• Ezután adja meg azt a helyet, ahová fel szeretné venni a megjegyzéslistát, felsorolhatja a megjegyzéseket egy új munkafüzetbe vagy egy új munkalapba, lásd a képernyőképet:

3. Kattintson a gombra Teremtgomb. Új munkalap kerül hozzáadásra az összes aktív munkalap-megjegyzés felsorolásához annak attribútumaival, mint például a lap neve, cellahivatkozások, sor és oszlop. Lásd a képernyőképet:

Részletesebb információk a Hozzászólólista létrehozása, Kérjük, látogasson el a Hozzon létre egy megjegyzéslista funkció leírást.

Kapcsolódó cikkek:

• Az összes megjegyzésformátum módosítása a cellákban
• Az összes megjegyzés szerzőnevének módosítása
• Keresse meg és cserélje le a szöveget a megjegyzések között
• Az összes megjegyzés és megjegyzésmutató megjelenítése vagy elrejtése az Excelben
• A cellatartalmat konvertálhatja megjegyzésekké az Excelben
• Megjegyzések konvertálása cellatartalomra az Excelben