Как вывести список всех комментариев из текущей книги на новый лист или в другую книгу в Excel?
Если в вашей книге слишком много комментариев и вы хотите вывести их все на новый лист или в отдельную книгу для удобного просмотра — как это сделать? Следующие методы позволят быстро перенести все комментарии с текущего листа или всей книги на новый лист или в отдельную книгу в Excel.
Использовать код VBA для вывода всех комментариев из Текущая книга на Новый лист
Использовать код VBA для вывода всех комментариев из Текущая книга на Новый лист
Следующий код VBA извлечёт все комментарии из текущей книги и выведет их на новый лист. На этом новом листе будет создан список всех комментариев книги с указанием имени листа, адреса ячейки, содержимого комментария и имени ячейки. Используйте этот метод следующим образом:
1. Нажмите «Разработчик» > «Visual Basic» — откроется окно «Microsoft Visual Basic для приложений». Затем выберите «Вставка» > «Модуль» и вставьте приведённый ниже код 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. Затем нажмите кнопку 
, чтобы выполнить код, и вы получите новый лист со всеми комментариями из текущей книги. См. снимок экрана:
Использовать Kutools для Excel для вывода всех комментариев из Текущая книга на Новый лист или в книгу
С помощью функции «Создать список комментариев» в Kutools для Excel вы можете быстро вывести все комментарии на новый лист или в новую рабочую книгу.
Kutools для Excel: более 300 удобных надстроек для Excel и бесплатная 30-дневная пробная версия без ограничений.Получить сейчас.
1. Если вы установили Kutools для Excel, выберите «Kutools» > «Дополнительно» > «Создать список комментариев».
2. В диалоговом окне «Создать список комментариев»:
- Выберите область для вывода списка комментариев: «Текущий лист» или «Все листы».
- Затем укажите, куда следует поместить список комментариев: вы можете вывести их в новую рабочую книгу или на новый лист. См. снимок экрана:
3. Затем нажмите кнопку «Создать». Будет добавлен новый лист со списком всех комментариев активного листа и их атрибутами: имя листа, ссылки на ячейки, строка и столбец. См. снимок экрана:
Более подробную информацию о функции «Создать список комментариев» см. в разделе описание функции «Создать список комментариев».
Связанные статьи:
- Изменить формат всех комментариев в ячейках
- Изменить имя автора всех комментариев
- Поиск и замена текст внутри комментариев
- Показать или скрыть все комментарии и индикаторы комментариев в Excel
- Преобразовать содержимое ячеек в комментарии в Excel
- Преобразовать комментарии в содержимое ячеек в Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек