求助_VBA选择不确定的多个工作表名称

sanxiao88

A3:A6中"办公室", "人力部", "财务部", "技术部"为不确定的工作表名称，A3:A6区域位置不变。如何用VBA语句批量选择该区域工作表名称？（要求语句中全部工作表名称为自动取值，并亲测成功）正常语句如下：

Sheets(Array("办公室", "人力部", "财务部", "技术部")).Select
Sheets("办公室").Activate"


环境见附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()
   
2.     Set sh = ThisWorkbook.Sheets("总公司")
   
3.     arr = sh.[a3:a6]
   
4.     st = ""
   
5.     For i = 1 To UBound(arr)
   
6.         st = st & " " & arr(i, 1)
   
7.     Next
   
8.     fns = Split(Trim(st))
   
9.     Sheets(fns).Select
   
10. End Sub
    

复制代码

sanxiao88

ykcbf1100 发表于 2024-4-4 14:46
参与一下。。。

太棒了！困扰好久的难题，大神帮我解决了！十分感谢！！！

baofa2

1. Sub test0()
   
2.   Dim ar
   
3.   ar = Worksheets("总公司").Range("A3:A6").Value  '1列中单元格数据，为二维数组
   
4.   ar = WorksheetFunction.Transpose(ar)            '单列二维数组 Transpose一次，变成一维
   
5.   Worksheets(ar).Select                           '这样，工作表名存在空格 不会出错
   
6. End Sub

复制代码

taller