Hsieh

回復 10# p6703


    ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(-1, 6).FormulaR1C1, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(-1, 9).FormulaR1C1, A.Offset(, -5).Value)

p6703

感謝Hsieh 版主，因小弟原訂單資料中除了G及J欄位有公式外，尚有公式的欄位還有N,P,R,S,W欄位（欄位順序數為14,16,18,19,23），小弟依樣畫葫蘆設定公式如下，卻無法延伸套取公式，請問那裡有錯呢????
Ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(-1, 6).FormulaR1C1, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(-1, 9).FormulaR1C1, A.Offset(, -5).Value, , , B.Offset(-1, 13).FormulaR1C1, , B.Offset(-1, 15).FormulaR1C1, , B.Offset(-1, 17).FormulaR1C1, B.Offset(-1, 18).FormulaR1C1, , , , B.Offset(-1, 22).FormulaR1C1)

Hsieh

回復 12# p6703
應該是寫入的欄數不夠吧
B.Resize(, 11).Value = ar
修改紅字的欄位數量試試
再不行請把檔案上傳

p6703

Hsieh版主B.Resize(, 11).Value = ar這裡是指總欄數嗎??因為原資料有些是手動輸入的，有些是希望藉著巨集自動輸入，有些則是用公式套取的，如果這裡是指總欄位數，因檔案放在公司，明天試看看^^..謝謝你

p6703

謝謝Hsieh版主，小弟將欄數由原11改23就都可將原公式延伸套用了，巨集真的太方便，感謝Hsieh版主的教導，謝謝^^

p6703

Hsieh版主，小弟執行上發現有問題：

因預設將1202-->A檔，1205-->B檔，1206-->C檔，但其實還有其他的代碼（例：1101，但此暫不需捉入訂單資料），結果執行巨集時就於此程式碼中停住，秀出錯誤訊息，請問是否有解法方法，謝謝??

If IsError(Application.Match(bs, Ws, 0)) Then Workbooks.Open ThisWorkbook.Path & "\" & bs: ReDim Preserve Ws(s): Ws(s) = bs: s = s + 1

p6703

小弟將非原設定3計劃員的資料刪除，此巨集執行上就沒問題了，再次感謝Hsieh版主