Jak wyświetlić wszystkie komentarze do nowego arkusza lub skoroszytu w programie Excel?
Jeśli masz skoroszyt ze zbyt wieloma komentarzami i chcesz wyświetlić wszystkie komentarze w nowym arkuszu lub skoroszycie, aby przejrzeć wszystkie komentarze, jak możesz to zrobić? Poniższe metody mogą pomóc w szybkim wyświetleniu wszystkich komentarzy arkusza roboczego / skoroszytu do nowego arkusza lub skoroszytu w programie Excel.
Wypisz wszystkie komentarze do nowego arkusza z kodem VBA
Wyświetl wszystkie komentarze do nowego arkusza lub skoroszytu z Kutools for Excel
Wypisz wszystkie komentarze do nowego arkusza z kodem VBA
Poniższy kod VBA wyświetli listę wszystkich komentarzy do nowego arkusza w bieżącym skoroszycie. W nowym arkuszu przedstawi wszystkie komentarze z całego skoroszytu na liście z nazwą arkusza, adresem komórki, zawartością komentarza i nazwą komórki. Użyj tej metody w następujący sposób:
1. Kliknij Deweloper > Visual Basic, wyświetla ikonę Microsoft Visual Basic dla aplikacji okno. I kliknij wstawka > Moduł, a następnie wprowadź następujące kody VBA w module.
VBA: wyświetla wszystkie komentarze w nowym arkuszu.
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. Następnie kliknij , aby uruchomić kod, a otrzymasz nowy arkusz ze wszystkimi komentarzami w bieżącym skoroszycie. Zobacz zrzut ekranu:
Wyświetl wszystkie komentarze do nowego arkusza lub skoroszytu za pomocą jednego kliknięcia
Z Utwórz listę komentarzy of Kutools dla programu Excel, możesz szybko wyświetlić wszystkie komentarze do nowego arkusza lub nowego skoroszytu.
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz teraz.
1. Jeśli zainstalowałeś Kutools for Excel, kliknij Kutools > Więcej > Utwórz listę komentarzyzobacz zrzut ekranu:
2, w Utwórz listę komentarzy Okno dialogowe:
- Wybierz zakres, w którym chcesz wyświetlić komentarz, możesz wybrać Aktywny arkusz or Wszystkie arkusze.
- Następnie określ lokalizację, w której chcesz umieścić listę komentarzy, możesz wyświetlić komentarze w nowym skoroszycie lub nowym arkuszu, zobacz zrzut ekranu:
3. A następnie kliknij Stwórzprzycisk. Zostanie dodany nowy arkusz roboczy zawierający listę wszystkich aktywnych komentarzy arkusza wraz z jego atrybutami, takimi jak nazwa arkusza, odwołania do komórek, wiersz i kolumna. Zobacz zrzut ekranu:
Więcej szczegółowych informacji na temat Utwórz listę komentarzyMożna znaleźć na stronie Utwórz opis funkcji listy komentarzy.
Podobne artykuły:
- Zmień wszystkie formaty komentarzy w komórkach
- Zmień nazwisko autora wszystkich komentarzy
- Znajdź i zamień tekst w komentarzach
- Pokaż lub ukryj wszystkie komentarze i wskaźniki komentarzy w programie Excel
- Konwertuj zawartość komórki na komentarze w programie Excel
- Konwertuj komentarze na zawartość komórki w programie Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!