[已解决]怎样才能使目录页不被排序

jinglingshu

哪位高手能帮我修改一下代码？

Sub songyy ()

Dim i As Integer

For i = 1 To 50

Sheets(i).Range("a1") = "NO," & Right("00" & i, 2)

Next i

End Sub

我想让目录页也就是第一页不参与标签排序。我有50张工作表加目录页共51张表，我希望从第二张表开始排序号NO.01。恳请大师帮忙谢谢！

最佳答案

月排行榜 / 总排行榜

suye1010

2011-12-7 21:33

Sub songyy ()
Dim i As Integer
For i = 2 To 51
Sheets(i).Range("a1") = "NO," & Right("00" & i-1, 2)
Next i
End Sub

跳转到最佳答案楼层

菜鸟锐

学习一下，看一下高手怎么回答

BAIXINGR

Sheets(i).Range("a1")   这得I不应该从1开始，应该从2开始所以你的代码应该改为
Sub songyy()

Dim i, z As Integer
For z = 2 To 51
For i = 1 To 50

Sheets(i).Range("a1") = "NO," & Right("00" & i, 2)

Next i
Next z
End Sub


不知道是不是你要的效果

jinglingshu

目录页还是排啦NO.01

suye1010

Sub songyy ()
Dim i As Integer
For i = 2 To 51
Sheets(i).Range("a1") = "NO," & Right("00" & i-1, 2)
Next i
End Sub

hubinhb

1. 
   

复制代码

Sub songyy ()

Dim i As Integer

For i = 2 To 51

Sheets(i).Range("a1") = "NO," & Right("00" & i, 2)

Next i

End Sub

jinglingshu

谢谢各位高人，5楼是我要的效果。再次感谢，我要努力学习了。