Excel如何做一个按钮，每按一次让A1单元格的数据按顺序复制B1，B2，B3。。。。单元格里的数据？

Question

比如B列有30行数据，a1=b1，按一次按钮，a1的数据就变成b2的数据了，再按一次就变出b3里的数据了，以此类推到b30以后循环回到b1

Answer 1

Dim n
Sub 按钮_Click()
If n < 30 Then
n = n + 1
Else
n = 1
End If
[A1] = Range("B" & n)
End Sub

Answer 2

使用宏。

  点击菜单上的“开发工具”，再点击其中的“插入”，再点击按钮，如下图：



请点击输入图片描述

在Excel表格需要的位置上画一个按钮，会弹出一个窗口要求指定按钮所对应的宏；



请点击输入图片描述

可以将宏名改成想要的字串，然后单击“新建”按钮，如“下一个单元格”，弹出VBA的代码窗口，如下图



请点击输入图片描述

在“Sub......”的上面，写入以下宏代码：

Dim n as integer

在“Sub......”的下面，写入以下宏代码：

If n < 30 Then n = n + 1 Else n = 1


[A1] = Range("B" & n)


关闭VBA编辑器，返回到Excel表格界面，右键点击按钮，选择“编辑文字”，将所画的按钮名称改为自己喜欢的名称，如“下一个单元格”，调整按钮的大小和位置。

然后就可以试验效果了。