- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
多個參考，與超板語法大致類似：
Sub TEST()
Dim xS As Worksheet, Clmn, Arr, Brr, j&, k%, xArea As Range
With Sheets("繞線-個人管製表改")
.UsedRange.Clear
.[A2] = "繞線個人分配管制表"
.[A3:P3] = Split("作業者,分配碼,製令單號,產品產號,分配量,生產日,生產量,假日,不良1,不良2,不良3,不良4,不良5,不良6,目檢員,登錄", ",")
Set xArea = .[A2:P4]: Brr = xArea
End With
Clmn = Array(12, 13, 1, 2, 14)
For Each xS In Sheets(Array("D03生產計劃表", "陶瓷電木生產計劃表"))
Arr = Range(xS.[A1], xS.UsedRange).Offset(4, 0)
For j = 1 To UBound(Arr)
If Arr(j, 1) = "" Then Exit For
For k = 0 To UBound(Clmn): Brr(3, k + 1) = Arr(j, Clmn(k)): Next
xArea = Brr: Set xArea = xArea.Offset(6, 0)
Next j
Next
End Sub |
|
發表於 2015-11-17 21:10
| 