Question

这是一个简单的请求。我试图清除工作表的内容，然后复制另一个工作表的范围。有两件事我想确定： 1.我正在复制的工作表（Sheet1）已经定义了命名范围，它对该工作表中的单元格进行绝对引用。我想确保这些定义不会受到任何影响。当然，当我清除工作表并复制其他工作表中的数据时，内容会发生变化。 2. Sheet1中有一些粘贴的图像。这些也需要清除。

我尝试了以下内容：

Sheets("Sheet1").Cells.Clear

这似乎确保了上述第一点。说真的，我不认为这是一个问题的危险，但只是想提一下。但是，图像不会消失。也许这是因为我使用.Cells.Clear？我无法删除表格。我该怎么做？

Answer 1

这应该这样做：

Sub KleanUp()
    Sheets("Sheet1").Cells.Clear
    Dim sh As Shape
    For Each sh In Sheets("Sheet1").Shapes
        sh.Delete
    Next sh
End Sub

清除包括图像的图纸而不影响命名范围定义

1 个答案: