如何实现 用vbA自动换行粘贴 如 A1 的值 复制 粘贴 到 B1 代码运行一次 就跳到 B2 按顺序换行

Question

如何实现 用vbA自动换行粘贴 如 A1 的值 复制 粘贴 到 B1 代码运行一次 就跳到 B2 按顺序换行 求大神 写个公式。

Answer 1

方法1：

可以采用区域粘贴的方式。如：

    Range("A1").Copy Range("B1:B15")

方法2：

也可以采用循环粘贴的方式。如：

    For i = 1 To 15
        Range("b" & i) = Range("a1")
    Next