遍历工作表以删除特定范围

Question

我正在尝试遍历所有工作表以删除I20至I30中的所有内容 和J20到J30

Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
    sh.Select
    sh.Range("I20 : J30").Select
    Selection.ClearContens
Next sh

返回选择错误的方法

Answer 1

您的代码在进行一些细微调整后，对我来说效果很好：

定义范围（在您的情况下为sh.Range("I20 : J30").Select）时，请勿在分号前后放置空格，而应使用：sh.Range("I20:J30").Select

其次，如braX所述，"ClearContents"。

我希望这可以解决您的问题， 干杯

Answer 2

...当您使用它时：无需选择任何内容。

For Each sh In ActiveWorkbook.Worksheets
    sh.Range("I20:J30").ClearContents
Next sh