[已解决]选择一个工作薄中名称为数字的工作表

qianzhi

求一个VBA代码，选择一个工作薄中名称为数字的工作表。工 作表数量不定。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-16 05:18

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     If IsNumeric(Sheets(i).Name) Then p = p & " " & Sheets(i).Name
   
4. Next
   
5. Sheets(Split(Mid(p, 2))).Select
   
6. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     If IsNumeric(Sheets(i).Name) Then p = p & " " & Sheets(i).Name
   
4. Next
   
5. Sheets(Split(Mid(p, 2))).Select
   
6. End Sub

复制代码