Grant会定期从网页复制信息，然后将其粘贴到工作表中。他不仅获得了原始数据，而且还获得了其他项目，例如复选框，图片，徽标等。Grant想要一种简便的方法来摆脱所有这些非数据项。

大多数人尝试的第一件事是以这种方式使用“转为特殊”：

。按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培训的来源。

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

摆脱Web Stuff。