Один из способов использования данных из Интернета на листе Excel — это скопировать их с веб-страницы и затем вставить в рабочий лист. Например, вы можете выбрать таблицу данных на веб-странице, нажать Ctrl + C, чтобы скопировать ее в буфер обмена, выбрать ячейку в Excel, а затем нажать Ctrl + V. Excel делает все возможное, чтобы проанализировать данные и поместить их в нужные ячейки, как это было в исходной таблице.

Проблема в том, что вы часто получаете больше, чем просто данные таблицы. Если в данных, скопированных из Интернета, были другие объекты, эти объекты также будут вставлены в рабочий лист. Нередко в рабочем листе появляются всевозможные мелкие графические элементы. Если эти изображения изначально были гиперссылками, вы можете фактически извлечь гиперссылку, а затем удалить изображение. Это сделало бы данные на листе более удобными для использования.

Это можно сделать с помощью макроса. Вставив веб-информацию в лист, запустите следующий макрос.

Sub ConvertHLShapes()

Dim shp As Shape     Dim sTemp As String

For Each shp In ActiveSheet.Shapes         sTemp = ""

On Error Resume Next 'go to next shape if no hyperlink         sTemp = shp.Hyperlink.Address         On Error GoTo 0         If sTemp <> "" Then             shp.TopLeftCell.Value = sTemp             shp.Delete         End If     Next End Sub

Этот макрос проходит через каждую фигуру на листе. Затем он проверяет, есть ли у фигуры связанную гиперссылку. Если это так, то адрес этой гиперссылки (в переменной sTemp) помещается в ячейку в верхнем левом углу того места, где расположена фигура. Макрос удаляет все фигуры, содержащие гиперссылки; вы можете заставить его удалить все фигуры на листе, просто переместив строку shp.Delete за пределы структуры If …​ End If.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3578) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Extracting_URLs_from_Hyperlinked_Images [Извлечение URL-адресов из изображений с гиперссылками].