|
Sub test()
Dim A, i, j, s
Sheets(2).Cells.Clear
Sheets(1).Select
Rows("1:2").Copy Sheets(2).Range("a1")
A = Range("a1").CurrentRegion
s = 2
For i = 3 To UBound(A)
For j = 7 To UBound(A, 2) - 3
If A(i, j) > 19 Then Exit For
Next j
If j = UBound(A, 2) - 2 Then
s = s + 1
For j = 7 To UBound(A, 2) - 3
A(s, j) = A(i, j)
Next j
End If
Next i
Sheets(2).Select
Range("a1").Resize(s, UBound(A, 2)) = A
End Sub
2.rar
(10.24 KB, 下载次数: 4)
|
|