Question

excel 设置一个命令按钮 用VBA实现单元格的自动跳转！

如图 单元格选中 金铂 按下按钮 选择框自动跳转到一下个单元格（金铂，巴丹……） 到金曼迪时自动停止 等于做一次循环 有知道的朋友 把函数解释一下 加分！！！
实现循环打印 金铂 巴丹 乔顿……
Private Sub 按钮4_Click()
Prn2
Sheets("流程表 (2)").Activate
ActiveSheet.PrintOut
Sheets("业务计件").Activate
这里要加什么函数？？？
End Sub

Answer 1

sub macro1 ()
x = ActiveCell.Row
do while cells(x,1)<>""
cells(x,1).select
x=x+1
loop
end sub

Answer 2

须用到
i=Target.row 当前单元格行数
j=Target.Column 当前单元格列数
cells(i+1,j).select 跳到当前单元格下一个单元格（行+1，列不变）