Excel Selection.AutoFill Destination 範圍問題..感恩

#excel #vba

trouble 2021-10-17 00:04:37 ‧ 1948 瀏覽

Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("工作表1").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(IT_VPN_Login_20211008__2[@使用者],""000000"")"
Selection.AutoFill Destination:=Range("A2:A250")
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

各位大大..程式我真的不行..請問..
這行的 Selection.AutoFill Destination:=Range("A2:A250")
A250 我要如何抓該行的最後一個數..因為這行數字不是固定的..

登入發表討論

直播研討會

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

直播中

3 個回答

blanksoul12

iT邦研究生 5 級 ‧ 2021-10-18 10:45:49

最佳解答

Sub test()

arr = Worksheets("工作表3").Range("d2:d" & Worksheets("工作表3").[d1048576].End(xlUp).Row)
Worksheets("工作表1").[a2].Resize(UBound(arr), 1) = arr

End Sub

回應 1
分享
檢舉

trouble iT邦新手 5 級 ‧ 2021-10-18 21:44:14 檢舉

非常感謝 blanksoul12 大大
你是解決我的一個大問題.但跟原題不同.抱歉

登入發表回應

海綿寶寶

iT邦大神 1 級 ‧ 2021-10-17 08:50:58

1.插入三列以取得 250 這個數字, 設為 nRow
2.在 AutoFill 那列使用 nRow 這個變數

Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("工作表1").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select

Selection.End(xlDown).Select
nRow = ActiveCell.Row
Range("A2").Select

Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(IT_VPN_Login_20211008__2[@使用者],""000000"")"
Selection.AutoFill Destination:=Range("A2:A" & nRow)
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

回應 5
分享
檢舉

看更多先前的回應...收起先前的回應...

trouble iT邦新手 5 級 ‧ 2021-10-17 09:35:30 檢舉

dear 海綿大大
因為我真的不懂..
上述的資料是我直接用錄製巨集所得..
你說的這個.我有google 到
但我不知道要如何塞進A250裡...

海綿寶寶 iT邦大神 1 級 ‧ 2021-10-17 11:31:21 檢舉

改程式了,看看OK不OK

trouble iT邦新手 5 級 ‧ 2021-10-17 14:09:18 檢舉

海綿大大.非常感謝..不過它好像會到最底下超過我要的欄位.會出現#VALUE!

可能是我表達的不清楚我是想把分頁表[工作表3]內的D2以下的資料複製到[工作表1]內的A2
因為每次資料列的內容行數都不同.所以才想用巨集.
但複製過來.A2又要去跟工作表2的其中一欄比對.產生大量的分表然後自動寄出..但因不懂VBA 所以只好上網看資料.但現在第一步就遇到問題了.所以只好上來請教..