VBA公式自动向下填充（Excel VBA)

身在零售业内，有时候工作繁复，需要编写一些VBA来简化工作。这些年写了不少代码，在这里将会陆续分享一些，从简单的开始。

有些是Excel本身没有直接功能，但是经常要这样操作，手动操作要好几步，因此编入VBA。有些是固定工作内容，很机械很重复，因此将工作思路编入VBA实现自动化。

首先分享一个“公式自动向下填充”。有时候某Excel工作表的内容很长，可能几万行。在某一列需要整体输入公式，在旁边列的单元格无空白的情况下，可以只在第一个单元格输入公式，双击鼠标向下填充，但是很多情况下，旁边列的单元格数据不完备，有空白，就会造成双击鼠标公式无法填充到最后一行，向下拖动公式又很麻烦。因此VBA写入以下代码，在“快速访问工具栏”上设立一个按钮，可以实现一键自动填充公式到底，简短有效。

Sub 公式向下填充()

Dim n, a, b

n = ActiveCell.CurrentRegion.Rows.Count

'判断活动单元格所在表的行数下限

a = ActiveCell.Row

b = ActiveCell.Column

Selection.AutoFill Destination:=Range(Cells(a, b), Cells(n, b))

End Sub