身在零售业内，有时候工作繁复，需要编写一些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
分享到:
閱讀更多 wujunmin 的文章
