Vinod часто использует расширенные инструменты фильтрации Excel для копирования отфильтрованных данных из одного места в другое. В некоторых случаях он хотел бы скопировать не только содержимое ячеек, но и комментарии к ячейкам, которые соответствуют критериям фильтрации. Он не ищет способ фильтрации на основе комментариев, а только для копирования комментариев вместе с содержимым ячеек при использовании расширенных возможностей фильтрации Excel.
(Следует отметить, что Microsoft изменила способ комментарии работают в Excel Office 365. Комментарии теперь разделены на цепочки, что позволяет пользователям обсуждать друг с другом данные. Заметки работают как комментарии в более ранних версиях Excel .)
Насколько мы можем судить, нет возможности скопировать комментарии или заметки с использованием расширенной фильтрации; копируется только содержимое ячейки. Однако можно легко скопировать комментарии или заметки, используя двухэтапный процесс.
Сначала отфильтруйте данные, но убедитесь, что фильтрация выполняется на месте; не указывайте, что вы хотите скопировать информацию в другое место. В итоге вы получаете отфильтрованный список, в котором отображаются только те ячейки, которые соответствуют вашим критериям. Затем выберите ячейки, возвращенные фильтрацией. Затем вы должны убедиться, что Excel знает, что вам нужны только видимые ячейки:
- Нажмите F5 , чтобы отобразить диалоговое окно “Перейти”.
- Щелкните “Специальное”, чтобы открыть диалоговое окно “Перейти к специальному”. (См. Рис. 1.)
- Убедитесь, что выбран параметр «Только видимые ячейки».
- Нажмите «ОК».
Рис. 1. Диалоговое окно «Перейти к специальному».
Выделив видимые ячейки (те, которые скрыты фильтрацией, не выбраны), вы готовы ко второму шагу: скопировать ячейки в другое место, используя обычные методы редактирования. В результате комментарии или заметки копируются вместе с содержимым ячейки.
Если вы выполняете эту задачу достаточно немного, и это даже мешает вам выполнить два шага, вы можете автоматизировать задачу. . Следующий макрос применит фильтр на месте, скопирует видимые ячейки в буфер обмена, а затем вставит их (и их комментарии или заметки) в новую книгу:
Sub AdvancedFilter_AndCopyComments () With Range («База данных») ‘фильтрует диапазон данных .AdvancedFilter Action: = xlFilterInPlace, _ CriteriaRange: = Range («Criteria»), Unique: = False’ копировать только видимые ячейки. SpecialCells (xlCellTypeVisible) .Copy End With ‘goto to another листы рабочего листа («Sheet1»). Выберите ‘и вставьте скопированные данные с диапазоном («A1») .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteAll End With Application.CutCopyMode = FalseEnd Sub
Макрос предполагает, что у вас есть настроены два именованных диапазона: один для данных, которые нужно отфильтровать (База данных), а другой – для критериев фильтрации (Критерии). Запустите макрос, и отфильтрованная, прокомментированная или отмеченная информация окажется на Листе 1.
Источник: