|
代码如下。。。
Sub 矩形3_Click() '改用数组,提高速度
Dim I As Long
Dim A As Worksheet
Dim lastRow As Long
Set A = ThisWorkbook.Sheets("Sheet2")
Set b = ThisWorkbook.Sheets("Sheet1")
ReDim brr(1 To 1000, 1 To 13)
ReDim crr(1 To 1000, 1 To 13)
n = 0: m = 0
For I = 1 To 1000
b.[a3] = "=t(now())"
arr = b.Range("A2:M2").Value
If arr(1, 1) = 1 Then
n = n + 1
For j = 1 To UBound(arr, 2)
brr(n, j) = arr(1, j)
Next
ElseIf arr(1, 2) = 2 Then
m = m + 1
For j = 1 To UBound(arr, 2)
crr(m, j) = arr(1, j)
Next
End If
Next
b.[a3] = Empty
lastRow = A.Cells(A.Rows.Count, "A").End(xlUp).Row
If n > 0 Then A.Cells(lastRow + 1, "A").Resize(n, 13) = brr
If m > 0 Then A.Cells(lastRow + 1, "P").Resize(m, 13) = crr
Beep
End Sub
|
评分
-
1
查看全部评分
-
|