在Excel工作表中使用Internet数据的一种方法是从网页复制数据，然后将其粘贴到工作表中。例如，您可以选择网页上的数据表，按Ctrl + C将其复制到剪贴板，在Excel中选择一个单元格，然后按Ctrl + V。 Excel会尽力分析数据并将其放入适当的单元格中，就像原始表中一样。

问题在于您不仅会获得表数据，而且还会得到更多。如果从Web复制的数据中还有其他对象，则这些对象也将粘贴到工作表中。在工作表中出现各种小图形并不少见。如果这些图形最初是超链接，则可能需要实际提取超链接，然后删除该图形。这将使工作表中的数据更加有用。

执行此操作的方法是使用宏。将Web信息粘贴到工作表后，请运行以下宏。

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_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2907）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

从超链接图像中提取URL。