如何在不知道确切数量的情况下在Excel中使用大量工作表？

我有超过100个工作表，我试图macros。 而不是坐在这里，数着每一个人来计算，有没有办法把所有的工作表都包括在内，并且通过其他的工作表呢？ 我只需要包括工作表18到最后。

这是我的代码

Sub Conversion() For y = 18 To (END????) For x = 1 To 30 testvalue1 = Worksheets(y).Cells(x, 4) If testvalue1 <> "" Then If IsNumeric(testvalue1) Then Worksheets(y).Cells(x, 4) = (Worksheets(y).Cells(x, 4) + 5500) testvalue2 = Worksheets(y).Cells(x, 4) End If End If Next x Next y End Sub 

Answer 1

 For y = 18 To Worksheets.Count 

Answer 2

您也可以在工作簿中的each工作表上工作。

 Dim ws as worksheet For each ws in ThisWorkbook If ws.index >= 18 then ' do stuff to every worksheet past index 18 End if Next ws 

这只是另一种select。 在这个特定的情况下，它不是非常有用，但是当你想要为每个工作表做些什么的时候，这个工具非常有用。