[已解决]求修改代码--VBA编写序号

yjwdjfqb

求修改代码--VBA编写序号

求修改代码--VBA编写序号.rar (10.95 KB, 下载次数: 18)

2012-2-11 12:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-11 13:03

1. Sub TEST ()
   
2.        For I = 0 To 65535
   
3.         If Selection.Offset(I, 1) = "" Then
   
4.             Exit For
   
5.         Else
   
6.             Selection.Offset(I) = I + 1
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Sub TEST ()
   
2.        For I = 0 To 65535
   
3.         If Selection.Offset(I, 1) = "" Then
   
4.             Exit For
   
5.         Else
   
6.             Selection.Offset(I) = I + 1
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

wenchduan

这个估计得有事件，不会等待解答！

lzclzch

{:011:}这样也可以的

yjwdjfqb

lzclzch 发表于 2012-2-11 13:17
这样也可以的

这样也可以，谢谢

yjwdjfqb

zjdh 发表于 2012-2-11 13:03

谢谢，非常好用。。。