VBA 選擇先後順序的語法 - Excel程式區

[發問] VBA 選擇先後順序的語法

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-11-17 10:11 | 顯示全部帖子

回復 2# fantersy
A分頁10個項目
B分頁有5個項目
A,B 的項目不同嗎? (各是哪些項)

匯到分頁時要能先從A分頁開始匯入後面再貼B分頁
當B分頁項目大於A分頁項目一樣先貼A再貼B分頁可解釋嗎

附檔最好有你期望的範例

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-11-17 13:38 | 顯示全部帖子

回復 5# fantersy
試試看

Option Explicit
Sub Ex()
Dim Ac(), xAr(), Ar(), Rng As Range, i As Integer, ii As Integer, e As Variant
Ac = Array(12, 13, 1, 2, 14) '指定欄位順序
i = 0
For Each e In Array("D03生產計劃表", "陶瓷電木生產計劃表")
Set Rng = Sheets(e).Range("A5") '起始列
Do While Rng <> ""
ReDim Ar(UBound(Ac)) '重置陣列:元素數=Ac
ReDim Preserve xAr(0 To i) 'Preserve 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。
For ii = 0 To UBound(Ac) '
Ar(ii) = Rng(1, Ac(ii)) '=> 'Ar(ii) = Rng.Cells(1, Ac(ii))
Next
xAr(i) = Ar '資料存入
Set Rng = Rng.Offset(1)
i = i + 1
Loop
Next
Ar = Array("作業者", "分配碼", "製令單號", "產品產號", "分配量", "生產日", "生產量", "假日", "不良1", "不良2", "不良3", "不良4", "不良5", "不良6", "目檢員", "登錄")
With Sheets("繞線-個人管製表改")
.UsedRange.Clear
Set Rng = .Range("A2")
For Each e In xAr '讀取資料
'=> For e = 0 To UBound(xAr)
With Rng
.Range("a1") = "繞線個人分配管制表"
.Range("a2").Resize(, UBound(Ar) + 1) = Ar
.Range("a3").Resize(, UBound(e) + 1) = e
'=>.Range("a3").Resize(, UBound(xAr(e)) + 1) = xAr(e)
End With
Set Rng = Rng.Offset(7) '下移7列
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 知識要用心體會，才能變成自己的智慧。