Excel VBA自動下拉的問題

excel vba 自動下拉

ian11247 2024-07-10 14:17:05 ‧ 510 瀏覽

分享至

各位版上的大大們好，在下才學疏淺
在測試自動下拉的時候遇到資料不須下拉(或是沒有資料的時候)
再跑巨集時會顯示錯誤/偵錯的選項，想詢問這是有辦法可以排除的嗎

例:
Dim r
r = Cells(Rows.Count, "C").End(xlUp).Row
Range("D2").AutoFill Destination:=Range("D2:D" & r), Type:=xlFillCopy
Range("D2:D" & r).Select

但是假設C欄位只有到C2 (某次資料長度不夠)
他就會跳出錯誤(無法執行巨集的視窗)
感謝版上大大，鞭小力一點

miamolla iT邦新手 5 級 ‧ 2024-07-11 07:31:39 檢舉

因為只到c2
r=2
Range("D2").AutoFill Destination:=Range("D2:D" & r)
這個無法執行
改成這樣試試
Dim r
r = Cells(Rows.Count, "C").End(xlUp).Row
On Error Resume Next
Range("D2").AutoFill Destination:=Range("D2:D" & r), Type:=xlFillCopy
Resume Next
Range("D2:D" & r).Select

登入發表討論