sub macro1 ()x = ActiveCell.Row do while cells(x,1)<>""cells(x,1).selectx=x+1loopend sub
须用到i=Target.row 当前单元格行数j=Target.Column 当前单元格列数cells(i+1,j).select 跳到当前单元格下一个单元格（行+1，列不变）
