怎样使用VBA选择本表以外工作表的B2∶B11区域？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 选择本表以外所有工作表()

 

    Dim sh As Worksheet, n%, i%, arr

 

    n=ThisWorkbook.Sheets.Count

 

    ReDim arr(1 To n)                '声明数组

 

    For Each sh In ThisWorkbook.Sheets  '循环检查工作表表名

 

      If sh.Name <> ActiveSheet.Name Then  '仅记录不等于本表名称之表

 

        i=i+1

 

        arr(i)=sh.Name            '重定义数组为工作表表名

 

      End If

 

    Next

 

    If i > 0 Then

 

      ReDim Preserve arr(1 To i)

 

      ThisWorkbook.Sheets(arr).Select '组合工作表

 

      ActiveSheet.[B2:B11].Select    '选择区域

 

    End If

 

End Sub

5、使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，则“B组”和“C组”表的B2∶B11都已被选中