excel VBA同时选择多个工作表的方法

摘要：

如果要用VBA同时选择多个工作表，可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容，如下面的一些代码：

1.用工作表名称：

假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”，同时选择这3个工作表：

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

2.用工作表索引号：

excel如何快速整理出一个目录工作表

1、用宏3.0取出各工作表的名称，方法：Ctrl F3出现自定义名称对话框，取名为X，在引用位置框中输入：=MID(GET.WORKBOOK(1),FIND(],GET.WORKBOOK(1)) 1,100)确定2、用HYPERLINK函数批量插入连接，方法：在

索引号是分配给工作表的连续数字，同一类型的工作表在工作簿中按照从左到右的顺序，依次为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”，以扩展所选择的内容。

excel如何判断单元格里是否包含指定文本

假定对A1单元格进行判断有无指定文本,以下任一公式均可:=IF(COUNTIF(A1,*指定文本*)=1,有,无)=IF(ISERROR(FIND(指定文本,A1,1)),无,有)求某一区域内不重复的数据个数例如求A1:A100范围内不重复数据的个