按一次Excel控件，A1单元格被替换成下一个单元格内容。语句怎么写？

niyongjun 发布于 2019-04-25 01:54， 1907 次点击

按一次Excel控件，A1单元格被替换成下一个单元格内容。怎么写？

按一次控件 a2替换a1

再按一次控件 a3替换a1

再按一次控件 a4替换a1

再按一次控件 a5替换a1

以此类推。。。。。。求大神相助，谢谢！

只有本站会员才能查看附件，请登录

2 回复

niyongjun2019-04-25 02:07

求大神相助，非常感谢。

zhiyuan4162019-06-24 11:39

Sub 按钮1_Click()
i = 1
Do
Cells(i, 1) = Cells(i + 1, 1)
i = i + 1
Loop Until Cells(i, 1) = ""

End Sub