VBA自動向下填滿問題 - Excel程式區

[發問] VBA自動向下填滿問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2017-7-6 09:58 | 顯示全部帖子

回復 1# msmplay
試試看

Sub 向下填滿()
With Range("C2:E2")
If .End(xlDown).Row = Rows.Count Then
'第一次A欄資料新增至A8，按下「公式向下填滿」按鈕時，C:E欄公式自動向下填滿至C8:E8
.AutoFill Destination:=.Cells.Resize(Range("A1").End(xlDown).Row - 1), Type:=xlFillCopy
ElseIf .End(xlDown).Row < Range("A1").End(xlDown).Row Then
With .End(xlDown).Resize(, .Columns.Count)
'第二次再人工新增A9:A15資料，希望再按下「公式向下填滿」按鈕時
'C: E欄公式可以從C9: E9開始自動向下填滿至C15: E15 , 並非從C2: E2重新向下填滿
.AutoFill Destination:=.Cells.Resize(Range("A1").End(xlDown).Row - .Row + 1), Type:=xlFillCopy
End With
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。