蘿蔔泥

回復 10# samwang


您好，謝謝您
共同作業的人員希望先改為以下的方式操作，
因太深的巨集他無法了解且之後他無法做修改，
故我們討論後只好將原本巨集做了簡單調整方便他日後做維護，
但出現執行錯誤，陣列索引超出範圍
因我們找不出錯誤原因為何，
故想請教大大幫忙

您之前所提供的巨集，我會留下作個人使用，謝謝

1. Sub 完成_總結new()
   
2. 
   
3. i = 2
   
4. If Range("a2") = "" Then
   
5.     r = 2
   
6. Else
   
7.     r = Range("a1").End(xlDown).Row + 1
   
8. End If
   
9. MsgBox (r)
   
10. 
    
11. SNAME = Sheets("設定頁").Range("B5")
    
12. Workbooks.Open Filename:=SNAME
    
13. 
    
14. Do While Range("a" & i) <> ""
    
15.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 1) = Workbooks("SNAME").Sheets("總表").Range("a" & i)
    
16.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 2) = Workbooks("SNAME").Sheets("總表").Range("e" & i)
    
17.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 3) = Workbooks("SNAME").Sheets("總表").Range("f" & i)
    
18.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 4) = Workbooks("SNAME").Sheets("總表").Range("j" & i)
    
19.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 5) = Workbooks("SNAME").Sheets("總表").Range("i" & i)
    
20.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 6) = Workbooks("SNAME").Sheets("總表").Range("d" & i)
    
21.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 7) = Workbooks("SNAME").Sheets("總表").Range("l" & i)
    
22.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 8) = Workbooks("SNAME").Sheets("總表").Range("m" & i)
    
23.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 9) = Workbooks("SNAME").Sheets("總表").Range("q" & i)
    
24.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 10) = Workbooks("SNAME").Sheets("總表").Range("t" & i)
    
25.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 11) = Workbooks("SNAME").Sheets("總表").Range("ab" & i)
    
26.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 12) = Workbooks("SNAME").Sheets("總表").Range("y" & i)
    
27.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 13) = Workbooks("SNAME").Sheets("總表").Range("z" & i)
    
28. '    Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
    
29.         If Workbooks("SNAME").Sheets("總表").Range("j" & i) = "外訓" And Workbooks("SNAME").Sheets("總表").Range("q" & i) <> "" Then
    
30.             Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = "詳如明細"
    
31.         Else
    
32.             Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
    
33. 
    
34.         End If
    
35.     r = r + 1
    
36.     i = i + 1
    
37. Loop
    
38. 
    
39. Workbooks(SNAME).Close
    
40. 'x = WorksheetFunction.CountIf(Sheets("連結總表").Range("c:d"), Range("m:m"))
    
41. End Sub

複製代碼

rakefrank

先開1.年度訓練總表-109.xlsm
再開2.年度訓練計畫表.xlsm
執行