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

(0)

相关推荐