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

Question

我有超过100个工作表，我正在尝试宏。有没有一种方法可以包括所有工作表从某一点开始并通过其余的工作表而不是坐在这里计算每一个单一的计数器？我只需要将工作表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

这只是另一种选择。它在这种特定情况下并不是很有用，但是当您想要对每个工作表执行某些操作时非常有用。