Jak vypsat všechny komentáře k novému listu nebo sešitu v aplikaci Excel?

Pokud máte sešit, který obsahuje příliš mnoho komentářů, a chcete vypsat všechny komentáře do nového listu nebo sešitu pro kontrolu všech komentářů, jak to můžete udělat? Následující metody vám pomohou rychle vypsat všechny komentáře listu / sešitu do nového listu nebo sešitu v aplikaci Excel.

Seznam všech komentářů k novému listu s kódem VBA

Seznam všech komentářů k novému listu nebo sešitu pomocí Kutools pro Excel

Seznam všech komentářů k novému listu s kódem VBA

Úžasný! Používání efektivních karet v aplikaci Excel, jako jsou Chrome, Firefox a Safari!

Ušetřete 50% svého času a snížíte tisíce kliknutí myší každý den!

---

Následující kód VBA vypíše všechny komentáře k novému listu v aktuálním sešitu. V novém listu zobrazí seznam všech komentářů celého sešitu v seznamu s názvem listu, adresou buňky, obsahem komentáře a názvem buňky. Použijte tuto metodu následujícím způsobem:

1. klikněte Vývojka > Visual Basic, zobrazí Microsoft Visual Basic pro aplikace okno. A klikněte Vložit > Modul, a poté vložte následující kódy VBA do modulu.

VBA: seznam všech komentářů v novém listu.

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. Pak klikněte na tlačítko  tlačítko ke spuštění kódu a získáte nový list se všemi komentáři v aktuálním sešitu. Viz snímek obrazovky:

Seznamte všechny komentáře k novému listu nebo sešitu jedním kliknutím

S Vytvořit seznam komentářů of Kutools pro Excel, můžete rychle uvést všechny komentáře do nového listu nebo nového sešitu.

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

1. Pokud jste nainstalovali Kutools pro Excel, klikněte na Kutools > Moře > Vytvořit seznam komentářů, viz screenshot:

2. V Vytvořit seznam komentářů dialogové okno:

• Vyberte rozsah, ve kterém chcete komentář uvést, můžete si vybrat Aktivní list or Všechny listy.
• Poté zadejte umístění, které chcete vložit do seznamu komentářů, můžete zobrazit seznam komentářů v novém sešitu nebo na novém listu, viz screenshot:

3. A pak klikněte na tlačítko Vytvořitknoflík. Nový list bude přidán do seznamu všech aktivních komentářů k listu s jeho atributy, jako je název listu, odkazy na buňky, řádek a sloupec. Viz snímek obrazovky:

Podrobnější informace o Vytvořit seznam komentářů, prosím navštivte Vytvořit popis funkce seznamu komentářů.

Související články:

• Změňte všechny formáty komentářů v buňkách
• Změnit jméno autora všech komentářů
• Najít a nahradit text v komentářích
• Zobrazit nebo skrýt všechny komentáře a indikátory komentářů v aplikaci Excel
• Převést obsah buňky na komentáře v aplikaci Excel
• Převeďte komentáře na obsah buněk v aplikaci Excel

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...