excel vba 代码：按本列第一行的内容填充至本表格有内容的最后一行

Question

我本来的代码如下：Range("K1:K463").Select Selection.FillDown如何将上面这一句的代码修改一下，变成：填充到K列的本表格（可以以B列为参照，但不能以K列本身作为参照）有内容的最后一行，谢谢

Answer 1

以下是以A列作为参照，另代码可简化，不需要用selection

Private Sub CommandButton1_Click()
row1 = Range("a65536").End(xlUp).Row
Range("k1:k" & row1).FillDown
End Sub 

或直接写成以下这样都可以，一句代码搞定：
Private Sub CommandButton1_Click()
Range("k1:k" & Range("a65536").End(xlUp).Row).FillDown
End Sub

Answer 2

不是怎么明白，填充的数据源是哪些？

Answer 3

excel vba代码提供 问题解决