【轉載】EXCEL VBA 同時選擇多個工作表的方法
阿新 • • 發佈：2021-11-13
如果要用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”，以擴充套件所選擇的內容。