我如何获得for循环来处理工作簿中的所有工作表？

简单的问题，我觉得不知道这个白痴。 发生了什么事情，我从几个单词文档中导入了一些数据，并在所有表单上留下了一些无关的数据。 我想要通过并且自动删除每张纸的前三行（通常我不会介意，但是对于100张以上的纸张，这有点麻烦）。

这是我迄今为止所尝试的：

Sub delete_rows() Dim delRange As Range Dim wkSheet As Worksheet For Each wkSheet In ThisWorkbook Set delRange = Rows("1:3") delRange.Delete Next wkSheet End Sub 

我得到这个错误：

“运行时错误”438“：

对象不支持这个属性或方法“

错误出现在for循环的开始处。

任何机会，我可以得到一些帮助？

谢谢！

Answer 1

您正在使用工作表types而不是一个variables。 另外，您并没有在For Each循环中引用Worksheets集合。

 For Each wkSheet in ThisWorkbook.Worksheets '... Next wkSheet 

另外，如果您只删除3行，则不需要使用variables。 你可以直接做：

 Rows("1:3").Delete