EXCEL中，如何将A列单元格的值通过VB控制可以反复的复制到B列？

Question

问题是这样的：如A1至A5,有如下数据：1、2、3、4、5，现在想通过VB按钮控制，当点按钮时，A1至A5的数据均复制到B1至B5中，当在次点按钮时，A1至A5的数据被复制到B6至B10中。另外，A1至A5不一定是都有数据，有时可能是A1至A3有数据，有时是A1有数据，有时A1至A5都有数据。也就是说，当A1至A5中有1至5个任意数据时，点按钮后都可以被复制到B中，而且是接着上一次的未位置接着复制的。
举个例子：第一次：A1~A3,1、2、3，点击按钮后分别被复制到B1~B3.第二次：A1~A5,3、2、6、2、9，点击后分被复制到B4~B8,这样每次点击后都是在B列上次的最后一个格开始把A列 的值复制过来。
用EXCEL宏功能（自带的VB功能）

Answer 1

建一个按钮
程序如下

Private Sub CommandButton1_Click()
Dim a(5) As String
Dim i As Integer
i = 1
Do While Range("a" & i) <> ""
a(i) = Range("a" & i)
i = i + 1
Loop

j = 1
Do While Range("b" & j) <> ""
j = j + 1
Loop

For i = 1 To 5

Range("b" & j) = a(i)
j = j + 1

Next

End Sub