excel VBA一起選擇多個工作表的辦法

如果要用VBA同時選擇多個工作表，可以利用數組或設置“Select”方法的參數為“False”來擴展所選擇的內容，如下面的一些代碼：

1.用工作表名稱：

假如工作表名稱為“Sheet1”、“Sheet2”、“Sheet3”，同時選擇這3個工作表：

Sub SelectMultiSheets()
Sheets(Array("Sheet3", "Sheet2", "Sheet1")).Select
End Sub

2.用工作表索引號：

索引號是分配給工作表的連續數字，同一類型的工作表在工作簿中按照從左到右的順序，依次為1、2、3……。下面的代碼同時選擇第1個和第3個工作表：

Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
End Sub

3.選擇所有工作表：

如果工作簿中不包含圖表工作表、對話框工作表，下面的代碼可以同時選擇所有的工作表：

Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
Next ws
End Sub

其中“Select”方法的參數為“False”，以擴展所選擇的內容。