Hoe alle opmerkingen in het huidige werkboek naar een nieuw werkblad of werkboek in Excel te lijsten?

Als je een werkboek hebt met te veel opmerkingen erin, en je wilt alle opmerkingen naar een nieuw werkblad of werkboek verplaatsen om ze te bekijken, hoe doe je dat dan? De volgende methoden kunnen je helpen om snel alle opmerkingen van een werkblad/werkboek naar een nieuw werkblad of werkboek in Excel te verplaatsen.

Gebruik VBA-code om alle opmerkingen in het huidige werkboek naar een nieuw werkblad te verplaatsen

Gebruik Kutools voor Excel om alle opmerkingen in het huidige werkboek naar een nieuw werkblad of werkboek te verplaatsen

Gebruik VBA-code om alle opmerkingen in het huidige werkboek naar een nieuw werkblad te verplaatsen

De volgende VBA-code zal alle opmerkingen in het huidige werkboek naar een nieuw werkblad verplaatsen. In het nieuwe werkblad zal het alle opmerkingen van het hele werkboek in een lijst weergeven met de naam van het werkblad, celadres, opmerkingeninhoud en celnaam. Gebruik deze methode als volgt:

1. Klik op "Developer" > "Visual Basic", dit toont het venster "Microsoft Visual Basic for Applications". Klik vervolgens op "Insert" > "Module", en voer vervolgens de volgende VBA-codes in de Module in.

VBA: lijst alle opmerkingen in een nieuw werkblad.

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. Klik daarna op om de code uit te voeren, en je krijgt een nieuw werkblad met alle opmerkingen uit het huidige werkboek. Zie screenshot:

Gebruik Kutools voor Excel om alle opmerkingen in het huidige werkboek naar een nieuw werkblad of werkboek te verplaatsen

Met de functie "Maak opmerkingenlijst" van "Kutools voor Excel" kun je snel alle opmerkingen naar een nieuw werkblad of een nieuw werkboek verplaatsen.

Kutools voor Excel: meer dan 300 handige Excel-add-ins, gratis te proberen zonder beperking gedurende 30 dagen. Haal het nu hier.

1. Als je Kutools voor Excel hebt geïnstalleerd, klik dan op "Kutools" > "More" > "Maak opmerkingenlijst."

2. In het dialoogvenster "Maak opmerkingenlijst":

• Selecteer het bereik waarvoor je de opmerkingen wilt weergeven, je kunt kiezen tussen "Huidig werkblad" of "Alle werkbladen".
• Specificeer vervolgens de locatie waar je de opmerkingenlijst wilt plaatsen, je kunt de opmerkingen in een nieuw werkboek of een nieuw werkblad weergeven, zie screenshot:

3. Klik vervolgens op de knop "Maken". Er wordt een nieuw werkblad toegevoegd om alle actieve werkbladopmerkingen weer te geven met hun kenmerken zoals werkbladnaam, celverwijzingen, rij en kolom. Zie screenshot:

Voor meer gedetailleerde informatie over "Maak opmerkingenlijst", bezoek dan de beschrijving van de functie Maak opmerkingenlijst.

Gerelateerde artikelen:

• Wijzig alle opmaak van opmerkingen in cellen
• Wijzig de auteursnaam van alle opmerkingen
• Zoek en vervang tekst binnen opmerkingen
• Toon of verberg alle opmerkingen en opmerkingsindicatoren in Excel
• Converteer celinhoud naar opmerkingen in Excel
• Converteer opmerkingen naar celinhoud in Excel