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