Excel VBA工作表循环-如何在n个工作表之间移动

Sub MoveBetweenWorksheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 循环遍历所有工作表
    For i = 1 To Worksheets.Count
        ' 获取当前工作表
        Set ws = Worksheets(i)
        
        ' 在这里可以执行你想要的操作，比如复制数据、修改单元格内容等
        
        ' 移动到下一个工作表
        If i < Worksheets.Count Then
            Set ws = Worksheets(i + 1)
        Else
            ' 如果已经是最后一个工作表，则移动到第一个工作表
            Set ws = Worksheets(1)
        End If
    Next i
End Sub