|
Sub Click()
Dim i, r, c, n, rng
Application.ScreenUpdating = False
c = Sheets(1).UsedRange.Columns.Count
n = 7
Sheets("summary").Select
Set rng = [b9]
rng.Resize(3 * n, c) = ""
For i = 1 To 3
Sheets(i).Select
r = getRow("11:20:00")
Cells(r, 1).Resize(n, c).Copy rng
Set rng = rng.Offset(n, 0)
Next i
Sheets("summary").Select
End Sub
'获取符合条件的首行行号
Function getRow(x)
Dim A, i
A = ActiveSheet.UsedRange
For i = 12 To UBound(A)
If CDate(Left(A(i, 1), 8)) >= CDate(x) Then Exit For
Next i
getRow = i
End Function
1.rar
(117.02 KB, 下载次数: 6)
|
|