excel中，根据某列行数n，复制单元格粘贴至n行，用vba 如何实现？

Question

比如b列行数为5，点击按钮实现：复制a列最下面单元格a2内容粘贴到a3至a5的单元格，用vba代码如何实现？

Answer 1

假设 A 列最后一个单元格所在的行数小于 B 列最后一个单元格所在的行数。那么：
Option Explicit
Private Sub CommandButton1_Click()
Dim A_LastRow As Long, B_LastRow As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
With Sheet1 '假设在工作表 Sheet1 中进行操作。运行代码前一定要修改
A_LastRow = .Cells(.Rows.Count, 1).End(xlUp)
B_LastRow = .Cells(.Rows.Count, 2).End(xlUp)

If A_LastRow < B_LastRow Then '楼主没有详细说明，那就假设在 A 列向下复制
.Cells(A_LastRow, 1).Copy .Range(.Cells(A_LastRow + 1, 1), .Cells(B_LastRow, 1))
Application.CutCopyMode = False
End If

End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Answer 2

比如b列行数为5，复制a列最下面单元格a2内容粘贴到a3至a5的单元格？？？