Sub Ex()
Dim 合格 As Boolean
Dim R%, Ri%, i%, Rn%, sh%, Spcs, Arr
Arr = Range([spc!N2], [spc!A2].End(xlDown))
Set Shs = Sheets("spc")
Spcs = Shs.[A2].End(xlDown).Row - 1
Sheets("DATA").Activate
Rn = [A1].End(xlDown).Row
For sh = 1 To Spcs
With Sheets(Arr(sh, 1))
Debug.Print .Name
.Cells(2, 2).Resize(Rn, 25).ClearContents
Ri = 2
For R = 2 To Rn
合格 = True
For i = 1 To 13
If Arr(sh, i + 1) <> "" And Cells(R, i + 12) > Arr(sh, i + 1) Then 合格 = False: Exit For
Next i
If 合格 Then .Cells(Ri, 2).Resize(, 25) = Cells(R, 1).Resize(, 25).Value: Ri = Ri + 1
Next R
End With
Next sh
End Sub
發表於 2018-11-5 02:32
| 