用于循环浏览从特定工作表(索引 3)开始的工作表的 VBA 代码

Question

我需要循环浏览索引 3 的最后一张纸并运行代码。我尝试过类似的方法，但它不起作用。

If (ws.sheetIndex > 2) Then
        With ws
            'code goes here
        End With
End If

我进行了搜索，但没有找到解决此问题的方法。非常感谢您的帮助。

我也尝试过:

Dim i As Long, lr As Long
Dim ws As Worksheet
Windows("Book1").Activate

With ActiveWorkbook
    Set ws = .Worksheets("index")
    For i = 3 To 10
        'code goes here
    Next i


End With

Answer 1

您可以尝试以下操作，它会迭代工作簿中的所有工作表，并且仅“执行”索引为 3 或以上的工作表。

Dim sheet As Worksheet

For Each sheet In ActiveWorkbook.Worksheets
  If sheet.Index > 2 Then
    ' Do your thing with each "sheet" object, e.g.:
    sheet.Cells(1, 1).Value = "hi"
  End If
Next

请注意，这不会对您拥有的工作表数量(10 或其他)施加硬性限制，因为它适用于事件工作簿中任意数量的工作表。

<小时/>

编辑

如果您希望代码在名称为 "Sheet"+ i 的工作表上运行(其中 i 是从 3 开始的索引号)，那么以下内容应该会有所帮助:

Dim sheet As Worksheet
Dim i As Long

For i = 3 To ActiveWorkbook.Worksheets.Count
  Set sheet = ActiveWorkbook.Worksheets(i)
  If sheet.Name = "Sheet" & i Then
    ' Do your thing with each "sheet" object, e.g.:
    sheet.Cells(2, 2).Value = "hi"
  End If
Next i

当然，这意味着工作表的名称需要始终遵循此模式，因此这不是最佳实践。但是，如果您确定名称将保持这样，那么它应该适合您。