VBA複製公式貼上問題

excel vba vba

msmplayv121068 2022-08-29 09:58:00 ‧ 1703 瀏覽

分享至

Dim r
r = Cells(Rows.Count, "D").End(xlUp).Row
Range("A2:C2").AutoFill Destination:=Range("A2:C" & r), Type:=xlFillSeries

網路查詢到以上公式，可參照D欄資料最下一列向下複製A2:C2公式
但想請教如何修改，跳過A:C欄中間已有資料列，從A:C欄最下一列空白儲存格開始下向貼上公式

例如:A3:C10已有資料(無論公式或值)，我想要複製A2:C2公式，從A11以下貼上公式至A20，而不是從A3往下貼上

以上求解~~~

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

Misty0723

iT邦新手 3 級 ‧ 2022-08-29 20:46:46

最佳解答

如果只是貼資料起始點的不同,用相同的邏輯改一改就可以了
r1 = Cells(Rows.Count, "A").End(xlUp).Row '先取A行最後的列數
r2 = r1 + ? 看你要設什麼邏輯,固定擴展幾列就填個數字,不是固定的就另外設變數
Range("A2:C2").Select
Application.CutCopyMode = False
Selection.Copy
Range("A" & r1 + 1).Select '從r1+1開始填入
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & r1 + 1 & ":C" & r1 + 1).AutoFill Destination:=Range("A" & r1 + 1 & ":C" & r2), Type:=xlFillSeries