- 帖子
- 2822
- 主題
- 10
- 精華
- 0
- 積分
- 2878
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-7-6
|
- Sub TEST()
- Dim Arr, Brr(1 To 2, 1 To 39), i&, j%, xE As Range
- Arr = [A4:J15]
- Brr(1, 1) = Split([G2], "-")(0) & "-FQC3"
- Brr(2, 1) = Split([G2], "-")(0) & "-FQC2"
- Brr(1, 2) = Year([C1]): Brr(2, 2) = Year([C1])
- Brr(1, 3) = [C1]: Brr(2, 3) = [C1]
- Brr(1, 4) = [L4]: Brr(2, 4) = [L4]
- For i = 0 To UBound(Arr) - 1
- If Arr(i + 1, 1) <> "M1" Then
- For j = 5 To 7: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j
- For j = 5 To 6: Brr(2, i * 3 + j) = Arr(i + 1, j + 4): Next j
- Else
- For j = 5 To 6: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j
- End If
- Next i
- Set xE = Workbooks("FQC").Sheets("input").[A65536].End(xlUp)(2)
- If xE.Row < 6 Then Set xE = xE(2)
- xE.Resize(2, 39) = Brr
- End Sub
|
|
發表於 2018-4-17 22:05
| 
發表於 2018-4-17 10:45
| 
