iT邦幫忙

0

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

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 我要如何抓該行的最後一個數..因為這行數字不是固定的..

2 個回答

0
blanksoul12
iT邦新手 4 級 ‧ 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
trouble iT邦新手 5 級 ‧ 2021-10-18 21:44:14 檢舉

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

0
海綿寶寶
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
看更多先前的回應...收起先前的回應...
trouble iT邦新手 5 級 ‧ 2021-10-17 09:35:30 檢舉

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

改程式了,看看OK不OK

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

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

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

https://ithelp.ithome.com.tw/upload/images/20211017/20128376z6qmUbNjRh.jpghttps://ithelp.ithome.com.tw/upload/images/20211017/20128376pBL2UgV8HS.jpg

又改了程式,看看OK不OK

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

海綿大大.抱歉.結果跟之前相同

我要發表回答

立即登入回答