如果要用VBA同時(shí)選擇多個(gè)工作表,可以利用數(shù)組或設(shè)置“Select”方法的參數(shù)為“False”來(lái)擴(kuò)展所選擇的內(nèi)容,如下面的一些代碼:
1.用工作表名稱:
假如工作表名稱為“Sheet1”、“Sheet2”、“Sheet3”,同時(shí)選擇這3個(gè)工作表:
Sub SelectMultiSheets()
Sheets(Array("Sheet3", "Sheet2", "Sheet1")).Select
End Sub
2.用工作表索引號(hào):
索引號(hào)是分配給工作表的連續(xù)數(shù)字,同一類型的工作表在工作簿中按照從左到右的順序,依次為1、2、3……。下面的代碼同時(shí)選擇第1個(gè)和第3個(gè)工作表:
Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
End Sub
3.選擇所有工作表:
如果工作簿中不包含圖表工作表、對(duì)話框工作表,下面的代碼可以同時(shí)選擇所有的工作表:
Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
Next ws
End Sub
其中“Select”方法的參數(shù)為“False”,以擴(kuò)展所選擇的內(nèi)容






