Excel VBA 中如何下複製公式的指令語法?

平時在 Excel中,只要在要複製儲存格的右下角,點兩下,就可以複製該儲存格的公式到其他位置。


若要以程式來操作,可以下指令:


Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I24")
Range("I3:I24").Select



但是,若要動態取得被複製的範圍,這時就要宣告變數來處理


Dim mRanges As String


Range("H3").Select
mRanges = "I3:" & "I" & Selection.End(xlDown).Row

Range("I3").Select
Selection.AutoFill Destination:=Range(mRanges)
Range(mRanges).Select



注意:指令語法中,首、尾各有一個 Range().Select 指令,不可少。

1 則留言:

匿名 提到...

請問如何用這個方法,設定I欄的行數,因為範例是I3~I24,如果我想讓它自行判斷有幾行可以行嗎(假設A表有I3~I56,B表有I2~I100不一定行數)?
如果是其它欄執行複製程式是不是把欄位編號改掉有幾欄就貼幾個呢? 謝謝幫忙~~~