excel表格如何用宏代码实现向下填充

Question

像图片这样的，第二列的数字5向下填充和第一列数据对齐，这个代码要怎么写

Answer 1

Sub test()
A = Range("a65536").End(xlUp).Row
B = Range("B1")
For i = 2 To A
    Range("B" & i) = B
Next
End Sub

追问

非常感谢，谢谢你