微博正文

将B列为小明的数据筛选出来，类似高级筛选的功能：

Sub test()
Sheet1.Columns('F:I').Clear
Dim i, arr, brr, k
arr = Sheet1.UsedRange
ReDim brr(1 To UBound(arr), 1 To 4)
k = 0
For i = 1 To UBound(arr)
If arr(i, 2) = '小明' Then
k = k 1
For j = 1 To 4
brr(k, j) = arr(i, j)
Next
End If
Next
Sheet1.Range('F1').Resize(UBound(brr), 4) = brr
End Sub