Hi, 大家好，小弟是Excel VGA新手，目前有個困難需要請教各位朋友。
小弟有A, B兩欄，A欄是數值，B欄是函數公式。因為A欄的行數每天都不一樣，有時候7行有時後10行，所以小弟在B欄的公式都是只保留第一行，等A欄有數值時在B欄用滑鼠右鍵在儲存格用黑十字向下填滿。
這個動作用滑鼠很簡單，但是小弟用vga寫時，卻一直無法成功，因為VGA會固定在錄時的A最後一行，隔天我再執行時，會執行到錄制時的行數，請教過GOOGLE大師也找不到小弟的問題。
希望各位朋友們能夠指導小弟，謝謝。
以下是小弟錄的內容
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B6")
Range("B2:B6").Select錄下後他只跑到今天的行數。
明天我A欄如果有10行的話，我還要改設定才行。
怎麼樣才能真正設定代替滑鼠向下填滿的動作呢？
Excel VBA （代替滑鼠向下填滿的指令）
2012-02-03 3:23 am
回答 (3)
2012-02-03 4:31 am
✔ 最佳答案
改為一行即可:Range("B2").AutoFill Destination:=Range("B2:B"& [A65536].End(3).Row) 如果還要選定此範圍的話，再加一行:
Range("B2:B"& [A65536].End(3).Row).Select
2012-02-02 23:34:34 補充：
亦可使用複製的語法，也是一行就行了:
[B2].Copy Range("B2:B"& [A65536].End(3).Row)
.
2014-08-02 5:50 pm
所以如果你想婚的念頭已經確定
就去找一家評價好一點的婚友社!
行動吧!
這是我之前參加的婚友社我覺得不錯
或搜尋 紅娘李姐
就去找一家評價好一點的婚友社!
行動吧!
這是我之前參加的婚友社我覺得不錯
或搜尋 紅娘李姐
2012-02-03 7:18 am
假設公式在B1：
[B1].Copy
With Range("B2:B" & [A65536].End(xlUp).Row)
.PasteSpecial xlPasteFormulas
.Value = .Value
End With
Application.CutCopyMode = xlCut
刷完公式貼成值！
2012-02-02 23:19:07 補充：
假設公式在B2：
[B2].Copy
With Range("B3:B" & [A65536].End(xlUp).Row)
.PasteSpecial xlPasteFormulas
.Value = .Value
End With
Application.CutCopyMode = xlCut
[B1].Copy
With Range("B2:B" & [A65536].End(xlUp).Row)
.PasteSpecial xlPasteFormulas
.Value = .Value
End With
Application.CutCopyMode = xlCut
刷完公式貼成值！
2012-02-02 23:19:07 補充：
假設公式在B2：
[B2].Copy
With Range("B3:B" & [A65536].End(xlUp).Row)
.PasteSpecial xlPasteFormulas
.Value = .Value
End With
Application.CutCopyMode = xlCut
收錄日期: 2021-04-27 19:21:04
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20120202000015KK07756