Як перерахувати всі коментарі на новий аркуш або книгу в Excel?
Якщо у вас є книга з надто великою кількістю коментарів і ви хочете перерахувати всі коментарі на новий аркуш або книгу для перегляду всіх коментарів, як це зробити? Наступні методи можуть допомогти вам швидко перерахувати всі коментарі робочого аркуша / книги до нового аркуша або книги в Excel.
Перелічіть усі коментарі на новий аркуш із кодом VBA
Перерахуйте всі коментарі до нового робочого аркуша або книги за допомогою Kutools for Excel
Перелічіть усі коментарі на новий аркуш із кодом VBA
У наведеному нижче коді VBA будуть перелічені всі коментарі до нового аркуша в поточній книзі. На новому аркуші він перелічить усі коментарі до всієї книги у списку з назвою аркуша, адресою комірки, вмістом коментаря та назвою комірки. Будь ласка, використовуйте цей спосіб наступним чином:
1. Натисніть Розробник > Візуальний Бейсік, він відображає Microsoft Visual Basic для програм вікно. І клацніть Insert > Модулі, а потім введіть наступні коди VBA в модулі.
VBA: перераховує всі коментарі на новому аркуші.
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. Потім натисніть 
, щоб запустити код, і ви отримаєте новий аркуш із усіма коментарями в поточній книзі. Дивіться знімок екрана:
Перелічіть усі коментарі до нового аркуша чи книги одним клацанням миші
З Створити список коментарів of Kutools for Excel, Ви можете швидко перерахувати всі коментарі до нового аркуша чи нової книги.
Kutools for Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Отримати зараз.
1. Якщо ви встановили Kutools for Excel, Натисніть Кутулс > більше > Створити список коментарів, див. скріншот:
2, в Створити список коментарів діалогове вікно:
- Виберіть область, в якій ви хочете вказати коментар, ви можете вибрати Активний аркуш or Всі аркуші.
- Потім вкажіть місце, куди потрібно додати список коментарів, ви можете перерахувати коментарі в новій книзі або на новому аркуші, див. Знімок екрана:
3. А потім клацніть Створюватикнопку. Буде додано новий аркуш із переліком усіх коментарів активного аркуша з його атрибутами, такими як назва аркуша, посилання на комірки, рядок та стовпець. Дивіться знімок екрана:
Для отримання більш детальної інформації про Створити список коментарів, Будь ласка, відвідайте Створити опис функції списку коментарів.
Статті по темі:
- Змінити всі формати коментарів у клітинках
- Змінити ім’я автора всіх коментарів
- Знайдіть і замініть текст у коментарях
- Показати або приховати всі коментарі та індикатори коментарів у програмі Excel
- Перетворення вмісту комірки в коментарі в Excel
- Перетворити коментарі на вміст комірки в Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
