在Excel VBA中,可以使用For Each
循环来遍历工作簿中的所有非活动工作表。下面是一个示例代码:
Sub IterateNonActiveSheets()
Dim ws As Worksheet
' 遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
' 检查工作表是否非活动工作表
If ws.Name <> ActiveSheet.Name Then
' 在此处添加你想要执行的操作
' 例如,打印非活动工作表的名称
Debug.Print ws.Name
End If
Next ws
End Sub
在以上示例中,我们使用For Each
循环遍历了工作簿中的所有工作表,并使用If
语句判断当前工作表是否为非活动工作表。如果是非活动工作表,可以在If
语句的内部添加你想要执行的操作,例如打印非活动工作表的名称。
你可以根据自己的需求修改代码,以实现你想要的功能。