如何用VBA实现：遍历所有表包含有sheet字符的所有表选中，并组成一...

matrixx

表格有多个表
如何用VBA实现：遍历所有表，将表名中包含有sheet字符的所有表全部选中，并组成一个sheetarray?
谢谢

chxw68

1. Sub test()
   
2.     Dim i%
   
3.     Dim arr()
   
4.     Dim ws As Worksheet
   
5.     For Each ws In Worksheets
   
6.         If InStr(ws.Name, "Sheet") <> 0 Then
   
7.             i = i + 1
   
8.             ReDim Preserve arr(1 To i)
   
9.             arr(i) = ws.Name
   
10.         End If
    
11.     Next
    
12.     Worksheets(arr).Select
    
13. End Sub
    

复制代码

chxw68

详见附件。

280022976

Sub TestSub()
    ReDim myArray(1 To 10)
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "Sheet*" Then
            k = k + 1
            myArray(k) = Sheets(i).Name
        End If
    Next
    ReDim Preserve myArray(1 To k)
    Sheets(myArray).Select
End Sub

limonet

关键字：like

limonet

Sub limonet()
    Dim Sht As Worksheet, Arr() As Variant, i%
    For Each Sht In Worksheets
        If Sht.Name Like "*Sheet*" Then
            i = i + 1
            ReDim Preserve Arr(1 To i)
            Arr(i) = Sht.Name
        End If
    Next Sht
    Sheets(Arr).Select
End Sub

matrixx

多谢各位。  

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.28
   
2.     Set List = CreateObject("System.Collections.ArrayList")
   
3.     For Each sht In Sheets
   
4.         If InStr(sht.Name, "Sheet") Then List.Add sht.Name
   
5.     Next
   
6.     zrr = List.toArray
   
7.     Sheets(zrr).Select
   
8. End Sub
   

复制代码