excel VBA一起選擇多個(gè)工作表的辦法

如果要用VBA同時(shí)選擇多個(gè)工作表，可以利用數(shù)組或設(shè)置“Select”方法的參數(shù)為“False”來擴(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)容。