|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
请高手解释下下面代码的意思,感谢!
Sub test()
Dim sht As Worksheet
Dim arr, brr
Dim i%, j%, n%, r As Long
Sheets("汇总").Range("A2:L65537").ClearContents
For Each sht In Sheets
If sht.Name <> "汇总" Then
arr = sht.UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
n = 0
For i = 2 To UBound(arr)
If arr(i, 2) = TextBox1.Text Then
n = n + 1
For j = 1 To UBound(arr, 2)
brr(n, j) = arr(i, j)
Next
End If
Next
End If
With Sheets("汇总")
r = .Range("b65536").End(xlUp).Row + 1
.Range("a" & r).Resize(UBound(brr), UBound(brr, 2)) = brr
End With
Erase arr
Next
End Sub
|
|