返回列表下一主題上一主題發帖

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

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-7-5 22:53 | 只看該作者

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

說明:
公式1~公式3(C:E欄)已使用VBA參照A欄資料自動向下填滿

問題:
A欄資料如果持續向下新增時，每次按下「公式向下填滿」按鈕，C:E欄公式均會從C2:E2重新向下填滿
請問該如何更改為
每次按下「公式向下填滿」按鈕時，C:E欄公式除了參照A欄資料自動向下填滿
但是以C:E欄最後一筆公式的下一列開始向下填滿

例如:
第一次A欄資料新增至A8，按下「公式向下填滿」按鈕時，C:E欄公式自動向下填滿至C8:E8
第二次再人工新增A9:A15資料，希望再按下「公式向下填滿」按鈕時
C:E欄公式可以從C9:E9開始自動向下填滿至C15:E15，並非從C2:E2重新向下填滿
以此類推…………求大師幫解~~~~~~

測試.rar (16.09 KB)

樓主熱帖

*宅女一枚無誤*

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 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