- 帖子
- 2839
- 主題
- 10
- 精華
- 0
- 積分
- 2895
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-2-15
|
Sub TEST_A1()
Dim Arr, Brr(2), N(2), i&, j%, YM$, SS, S As Worksheet, T$, k%
YM = Format(Date, "yyyy-m")
ReDim Arr(1 To 20000, 1 To 11)
Brr(1) = Arr: Brr(2) = Arr
For Each S In Sheets
T = UCase(S.Name)
k = Switch(T Like "QC#*", 1, T Like "CLS-QC#*", 2, T = T, 0)
If k = 0 Then GoTo s99
Arr = S.Range("a1").CurrentRegion
For i = 2 To UBound(Arr)
If Arr(i, 5) = 0 Then Exit For
If Arr(i, 11) = YM Then
N(k) = N(k) + 1
For j = 1 To UBound(Arr, 2)
Brr(k)(N(k), j) = Arr(i, j)
Next j
End If
Next i
s99: Next
Set SS = Sheets(Array("QC Summary", "CLS Summary"))
For k = 1 To 2
SS(k).UsedRange.Offset(1, 0).EntireRow.Delete
If N(k) > 0 Then SS(k).[a2].Resize(N(k), 11) = Brr(k)
Next k
End Sub |
|
發表於 2022-1-30 08:59
| 