如何在vba中批量对多个工作表执行相同的操作？

有时候，我们需要对一个工作簿中的多个工作表执行相同的操作。

比如批量打印N个工作表、批量打印预览多个工作表等。

这个时候可以使用Sheets集合对象。

比如以下两句代码可以分别批量打印所有工作表和打印预览所有工作表

 Sheets.PrintOut
 Sheets.PrintPreview

如果需要对其中几个连续或者不连续的工作表执行相同的操作还可以使用数组的形式。

如下所示

Sub QQ1722187970()
    Dim arr
    arr = Array("Sheet1", "Sheet3")
    Sheets(arr).PrintPreview
End Sub