[已解决]请教每运行一次宏就自动下移选中区域的代码

东方智彩

如果我选中单元格GV5:GV10,怎么实现运行一次宏就自动下移一行,而选中GV6:GV11,如此每运行一次宏就下移一行直至最后一个空单元格提示"无",请高手们指教实现这个的代码写法,谢谢!

最佳答案

月排行榜 / 总排行榜

happym8888

2012-3-3 14:52

Dim i
Private Sub CommandButton1_Click()
i = i + 1
If Range("gv" & 9 + i) = "" Then MsgBox "无": Exit Sub
Range("gv" & 4 + i & ":gv" & 9 + i).Select
End Sub

新建 Microsoft Excel 工作表-Happym8888.rar (8.07 KB, 下载次数: 61)

2012-3-3 14:57 上传

点击文件名下载附件

跳转到最佳答案楼层

happym8888

Dim i
Private Sub CommandButton1_Click()
i = i + 1
If Range("gv" & 9 + i) = "" Then MsgBox "无": Exit Sub
Range("gv" & 4 + i & ":gv" & 9 + i).Select
End Sub

新建 Microsoft Excel 工作表-Happym8888.rar (8.07 KB, 下载次数: 61)

2012-3-3 14:57 上传

点击文件名下载附件

东方智彩

非常感谢解答,学习了,谢谢!