[已解决]代码求助

642070295

各位大师，“附件99”中有个代码不知道怎么表达，麻烦大师们帮写一下！ 附件99.rar (10.7 KB, 下载次数: 5)

2014-3-4 09:37 上传

点击文件名下载附件    先谢了！急！！！

最佳答案

月排行榜 / 总排行榜

独奏

2014-3-4 09:51

1. Sub test()
   
2. For r = 1 To Sheets("数据").Range("b65536").End(xlUp).Row
   
3.     If Sheets("数据").Range("b" & r) > 0 Then
   
4.          MsgBox "行号：" & r, vbOKOnly
   
5.     End If
   
6. Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

独奏

1. Sub test()
   
2. For r = 1 To Sheets("数据").Range("b65536").End(xlUp).Row
   
3.     If Sheets("数据").Range("b" & r) > 0 Then
   
4.          MsgBox "行号：" & r, vbOKOnly
   
5.     End If
   
6. Next
   
7. End Sub

复制代码

ilay

学习了