如果要用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”,以擴展所選擇的內容