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的较早菜单界面找到此技巧的版本: