Grant会定期从网页复制信息，然后将其粘贴到工作表中。他不仅获得了原始数据，而且还获得了其他项目，例如复选框，图片，徽标等。

当您第一次从Web粘贴到Excel工作表中时，您可能需要考虑使用“选择性粘贴”来执行类似“作为文本粘贴”或“粘贴值”的操作。这应该有助于避免首先将那些不需要的对象放入您的工作表中。

如果“选择性粘贴”无法提供所需的结果，或者您正在使用已将信息和对象粘贴到其中的工作表，则可以尝试以下操作。大多数人尝试的第一件事是以这种方式使用Go To Special：

。按F5。 Excel将显示“转到”对话框。

。单击特殊按钮。 Excel将显示“转到特殊”对话框。

（请参见图1。）

。选择对象选项。

。单击确定。

执行此操作时，Excel在工作表中选择了许多对象，然后可以按Delete键删除它们。

问题在于此方法不会选择工作表中的所有非数据项；它只会选择其中的一个子集，即Excel认为是“对象”的那些项目。

更好的解决方案是使用宏在工作表中选择所有形状，然后将其删除。使用这样的宏，这样做非常简单：

Sub DeleteAllShapes1()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next End Sub

宏只是循环遍历活动工作表上的每个形状并删除每个形状。您可以在宏上进行一点扩展，方法是删除所有粘贴在工作表中的超链接。只需要添加一行：

Sub DeleteAllShapes2()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next     ActiveSheet.Hyperlinks.Delete End Sub

如果由于某种奇怪的原因，这些宏没有摆脱您要删除的所有非数据项，则可以使用另一种方法：

在Excel之前在NotePad中停止。只需将Web数据粘贴到空白的NotePad文档中，然后选择该信息（粘贴后），然后将其复制回剪贴板。然后，将其粘贴到Excel中。

剩下的唯一内容应该是直接数据。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

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

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

本技巧（6951）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

摆脱Web Stuff。