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
Selection.AutoFill Destination:=Range("A2:A250")
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

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 檢舉

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
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 海綿大大

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

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