[已解决]VBA:如何选择第2张至倒数第2张工作表

qjsu

VBA:如何选择第2张至倒数第2张工作表

我知道大概应该是sheets（2）：sheets(sheets.count-1)，但是我有点搞不明白

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-30 23:41

1. Sub SelectSheets()
   
2.     Dim i&
   
3.     Dim sSht$, arr
   
4.     If Worksheets.Count < 3 Then MsgBox "工作表数量低于3个": Exit Sub
   
5.     For i = 2 To Worksheets.Count - 1
   
6.         sSht = sSht & Worksheets(i).Name & ","
   
7.     Next
   
8.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
9.     Worksheets(arr).Select
   
10. End Sub
    

复制代码

加个提示。
低于3个工作表的不会运行。

跳转到最佳答案楼层

qjsu

VBA:如何选择第2张至倒数第2张工作表

我知道大概应该是sheets（2）：sheets(sheets.count-1)，但是我有点搞不明白

hwc2ycy

1. Sub SelectSheets()
   
2.     Dim i&
   
3.     Dim sSht$, arr
   
4.     If Worksheets.Count < 3 Then Exit Sub
   
5.     For i = 2 To Worksheets.Count - 1
   
6.         sSht = sSht & Worksheets(i).Name & ","
   
7.     Next
   
8.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
9.     Worksheets(arr).Select
   
10. End Sub

复制代码

hwc2ycy

1. Sub SelectSheets()
   
2.     Dim i&
   
3.     Dim sSht$, arr
   
4.     If Worksheets.Count < 3 Then MsgBox "工作表数量低于3个": Exit Sub
   
5.     For i = 2 To Worksheets.Count - 1
   
6.         sSht = sSht & Worksheets(i).Name & ","
   
7.     Next
   
8.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
9.     Worksheets(arr).Select
   
10. End Sub
    

复制代码

加个提示。
低于3个工作表的不会运行。

hwc2ycy

1. Sub SelectSheets2()
   
2.     Dim i&
   
3.     Dim arr
   
4.     If Worksheets.Count < 3 Then MsgBox "工作表数量低于3个": Exit Sub
   
5.     ReDim arr(1 To Worksheets.Count - 2)
   
6.     For i = 2 To Worksheets.Count - 1
   
7.         arr(i - 1) = Worksheets(i).Name
   
8.     Next
   
9.     Worksheets(arr).Select
   
10. End Sub

复制代码

直接用数组。

hwc2ycy

1. Sub SelectSheets2()
   
2.     Dim i&
   
3.     Dim sSht$, arr
   
4.     If Worksheets.Count < 3 Then MsgBox "工作表数量低于3个": Exit Sub
   
5.     ReDim arr(1 To Worksheets.Count - 2)
   
6.     For i = 2 To Worksheets.Count - 1
   
7.         arr(i - 1) = Worksheets(i).Name
   
8.     Next
   
9.     Worksheets(arr).Select
   
10. End Sub

复制代码

新月gg

老师，数组还没学呢。不用数组怎么写。

hwc2ycy

新月gg 发表于 2012-10-31 08:48
老师，数组还没学呢。不用数组怎么写。

2，3楼都可以的。

新月gg

2.3楼也是数组吧。。。。必须用数组完成吗

qjsu

hwc2ycy 发表于 2012-10-30 23:41
加个提示。
低于3个工作表的不会运行。

http://www.excelpx.com/thread-288887-1-1.html根据您的提示，我做的，谢谢您奥