身在零售業(yè)內(nèi)，有時候工作繁復(fù)，需要編寫一些VBA來簡化工作。這些年寫了不少代碼，在這里將會陸續(xù)分享一些，從簡單的開始。

有些是Excel本身沒有直接功能，但是經(jīng)常要這樣操作，手動操作要好幾步，因此編入VBA。有些是固定工作內(nèi)容，很機械很重復(fù)，因此將工作思路編入VBA實現(xiàn)自動化。

首先分享一個“公式自動向下填充”。有時候某Excel工作表的內(nèi)容很長，可能幾萬行。在某一列需要整體輸入公式，在旁邊列的單元格無空白的情況下，可以只在第一個單元格輸入公式，雙擊鼠標(biāo)向下填充，但是很多情況下，旁邊列的單元格數(shù)據(jù)不完備，有空白，就會造成雙擊鼠標(biāo)公式無法填充到最后一行，向下拖動公式又很麻煩。因此VBA寫入以下代碼，在“快速訪問工具欄”上設(shè)立一個按鈕，可以實現(xiàn)一鍵自動填充公式到底，簡短有效。

Sub 公式向下填充()

Dim n, a, b

n = ActiveCell.CurrentRegion.Rows.Count

'判斷活動單元格所在表的行數(shù)下限

a = ActiveCell.Row

b = ActiveCell.Column

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

End Sub