Грант регулярно копирует информацию с веб-страниц и вставляет эту информацию в рабочие листы. В итоге он получает не только необработанные данные, но и другие элементы, такие как флажки, изображения, логотипы и т. Д. Гранту нужен простой способ избавиться от всех этих элементов, не связанных с данными.
Первое, что пытается сделать большинство людей, – это использовать Go To Special следующим образом:
- Нажмите F5 . Excel отображает диалоговое окно “Перейти”.
- Нажмите кнопку “Специальная”. Excel отображает диалоговое окно «Перейти к специальному». (См. Рис. 1.)
- Выберите параметр «Объекты».
- Нажмите кнопку «ОК».
Рис. 1. Диалоговое окно «Перейти к специальному».
Когда вы это сделаете, Excel выберет несколько объектов на листе, и затем вы можете нажать клавишу Удалить , чтобы избавиться от них. Проблема в том, что этот метод не выбирает все элементы, не относящиеся к данным, на листе; он выбирает только подмножество из них – те элементы, которые Excel считает «объектами».
Лучшее решение – использовать макрос, чтобы выбрать все фигуры на листе, а затем удалить их. Это довольно просто сделать, используя макрос вроде этого:
Sub DeleteAllShapes1 () Dim shp As Shape For each shp In ActiveSheet.Shapes shp.Delete NextEnd Sub
Макрос просто перебирает каждую фигуру на активном листе и удаляет каждую. Вы можете немного расширить макрос, если он также удалит все гиперссылки, вставленные в рабочий лист. Все, что требуется, – это добавить одну строку:
Sub DeleteAllShapes2 () Dim shp As Shape For each shp In ActiveSheet.Shapes shp.Delete Next ActiveSheet.Hyperlinks.DeleteEnd Sub
Если по какой-то странной причине эти макросы не избавляются от всех элементов, не относящихся к данным, которые вы хотите удалить, есть другой подход, который вы можете использовать: остановитесь в Блокноте перед Excel. Просто вставьте свои веб-данные в пустой документ Блокнота, затем выберите эту информацию (после того, как она будет вставлена) и скопируйте ее обратно в буфер обмена. Затем вставьте его в Excel. Остались только прямые данные.
Источник: