身在零售業內，有時候工作繁複，需要編寫一些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 的文章
