Question

VBA excel中怎样表示，输入一个公式然后自动填充到前一列的位置。

如，excel 中A1，B2列有13行数值，在C2列插入公式A1&B2然后双击下自动填充，实际应用中A1和B2不一定有13行数值，在VBA要怎样让C2列插入公式后每次自动填充前一列的位置也就是excel中双击那个功能。

Answer 1

Sub 填充公式()
i = [b65536].End(3).Row - 1
For k = 1 To i
    Cells(k + 1, 3) = Cells(k, 1) & Cells(k + 1, 2)
Next
End Sub

Answer 2

获取B列最后一行数据，可以使用End方法，例如：
n = Range(B65536).End(xlUp).Row()