怎样使用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都已被选中