選單

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

前景提要

在Excel的使用過程中,公式有很大的幫助,因為可以直接借用Excel自帶的函式,也就是現在常說的輪子,有了現成的輪子,我們就可以節省自己造輪子的時間,效率提升了不少。

我們知道在Excel中,我們使用公式更多的時候都是在一個單元格中寫入了公式之後,然後直接下拉填充到其他的單元格中的,不過有時候我們正好利用VBA程式碼增加了某一行或者某一列,新增加的行列是肯定沒有公式的,那麼這個時候我們要如何給這些新增的單元格寫入公式呢?

難道要透過遍歷迴圈的方式一個一個寫入?

不,Excel既然能夠透過滑鼠來實現公式的向下填充,那麼VBA自然也可以實現,而且非常的簡單

一起來看看

場景說明

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

這是我們之前的場景,今天我們假設資料有了增加,A列我們新增了幾列

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

可以看到,新增了幾個數值之後,後面的單元格內容是完全為空的,並沒有任何的公式,那麼怎麼辦呢?

我們可以用常規的方式透過滑鼠雙擊的方法,向下填充單元格公式

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

但是很明顯,這樣的操作存在一些麻煩,我們後面的B,C,D三列都有公式的,如果要填充的公式的話,那麼就需要重複上面的操作,至少三次,如果有更多公式列的話,那麼要雙擊滑鼠填充的次數就更多了,這樣一來操作就會比較的麻煩了

說了那麼多,難道VBA可以實現一次填充多列?!

程式碼區

單純說,你可能不信,真的是這樣,不管你要向下填充幾列,其實在VBA中,都是一句程式碼的事情

真的是一句程式碼

Sub tc()

Range(“b2:d10”)。FillDown ‘向下填充公式

End Sub

一起來看看實際的效果如何

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

從時間和效率上,我們看是不是VBA的效果更佳的好?

在用滑鼠填充的過程中,因為一定要選中單元格之後,移動到右下角,待滑鼠形狀變成十字游標的時候,才可以點選下拉,在這個過程中也會導致選錯單元格,要重新選擇的,

而VBA的效果就非常的好,寫好了程式碼,固定了區間之後,直接填充,非常快捷,效率提升了很多

程式碼解析

既然我說一句程式碼就可以實現了

那麼這一句程式碼是什麼呢

Range(“b2:d10”)。FillDown ’向下填充公式

就是非常簡單的一句程式碼,程式碼的核心就是FillDown這個方法

簡單點可以理解為,

FillDown就是向下填充單元格的意思

既然要向下填充,那肯定要有一個單元格區間啦,前面的range就是單元格區間

注意:

這個FillDown使用有一個大前提,就是這個單元格區域的第一行一定要有公式的,如果第一行沒有公式的話,是不會是想填充的效果的

這裡我簡單的更改下程式碼,大家看看

Sub tc()

Range(“b7:d10”)。FillDown ‘向下填充公式

End Sub

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

假設我們程式碼中寫入的是這個區域,我們會發現執行了程式碼之後,是不會有任何的效果的,因為B7,C7,D7這三個起始行是沒有任何公式的

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

假設我們稍微更換下,將區域往上增加一行,從B6,C6,D6這一行開始

Sub tc()

Range(“b6:d10”)。FillDown ’向下填充公式

End Sub

Excel VBA 8.41向下填充公式可以用滑鼠 但程式碼中你怎麼用滑鼠?

這樣才會有正確的結果,所以大家在使用的過程中,一定要留意起始區域的選擇