VBA不同活頁多欄位自動向下填滿問題?

[匿名]

2016-06-14 2:57 am

http://www.funp.net/453400

以上為測試檔，不好意思想請教一下網大們，
測試檔已使用巨集按下「自動填滿」按鈕後，"V2:AD2"可依U欄資料多寡自動向下填滿
請教如何讓活頁「測試1」、「測試2」、「測試3」，"A2:M2"也可依「資料來源」U欄資料多寡自動向下填滿
求解~~~~~並先感謝大師們熱心幫忙喔!!!!

更新1:

C大~~~真的非常感謝你ㄛ！但我遇到一個問題，就是我的正式檔案，「測試1,2,3」活頁名稱，其實正確是「有留言24」，「有留言40」，「3C&配件」，最後可以再請教一下我改怎麼修改到以上程式碼呢？再次感謝幫忙~~

回答 (1)

Cheng

2016-06-14 6:59 am

✔ 最佳答案

Sub 巨集1()
Dim y As Long
Sheets("資料來源").Select
y = Sheets("資料來源").[U65536].End(xlUp).Row
Range(Cells(2, 22), Cells(2, 30)).AutoFill Destination:=Range(Cells(2, 22), Cells(y, 30))

For i = 1 To 3
Sheets("測試" & i).Select
Range(Cells(2, 1), Cells(2, 13)).AutoFill Destination:=Range(Cells(2, 1), Cells(y, 13))
Next
End Sub

Sub 巨集1()
Dim y As Long
Sheets("資料來源").Select
y = Sheets("資料來源").[U65536].End(xlUp).Row
Sheets("有留言24").Select
Range(Cells(2, 1), Cells(2, 13)).AutoFill Destination:=Range(Cells(2, 1), Cells(y, 13))
Sheets("有留言40").Select
Range(Cells(2, 1), Cells(2, 13)).AutoFill Destination:=Range(Cells(2, 1), Cells(y, 13))
Sheets("3C&配件").Select
Range(Cells(2, 1), Cells(2, 13)).AutoFill Destination:=Range(Cells(2, 1), Cells(y, 13))

End Sub

arr = Array("有留言24", "有留言40", "3C&配件")
For i = 0 To 2
Sheets(arr(i)).Select
Range(Cells(2, 1), Cells(2, 13)).AutoFill Destination:=Range(Cells(2, 1), Cells(y, 13))
Next

👍 1 👎 0