Sub Click()
Dim A, B, i, j, x
Sheets("Sheet1").Select
i = Cells(Rows.Count, 1).End(xlUp).Row
A = Range("a1:b" & i)
For i = 2 To UBound(A)
A(i, 2) = True
B = VBA.Split(A(i, 1), "/")
For j = 0 To UBound(B)
x = B(j) * 1
If x < 401 Or x > 414 Then
A(i, 2) = False
Exit For
End If
Next j
Next i
With Sheets(2)
.Cells.Clear
.Range("a1").Resize(UBound(A), UBound(A, 2)) = A
.Select
End With
End Sub
1.rar
(18.24 KB, 下载次数: 6)