Question

excel vba充填公式，要求A列单元格的行数是动态的，B列公式充填下拉！怎么能用vba实现，我

excel vba充填公式，要求A列单元格的行数是动态的，B列公式充填下拉！怎么能用vba实现，我用录制宏双击下拉公式得到的效果是固定的。不是动态的。求指点！

Answer 1

以填充公式=sum(a2,c2)为例，以下是代码

Sub test()

For Each Rng In Range("a1", [a1].End(xlDown))

    Rng.Offset(0, 1) = "=sum(" & "a" & Rng.Row & "," & "c" & Rng.Row & ")"

Next

End Sub

这是录制好的执行画面。

Answer 2

sub xxx()
  range("B2").AutoFill Destination:=Range("B2:B" & range("A65536").end(xlup).row)
end sub