VBA学习笔记（6）--抽取第一列中叫“虹虹”的个人信息

 1 ‘抽取列表中叫“虹虹”的所有信息，设置arr2数组1到1000，可以省略转置步骤
 2 Public Sub test1()
 3     Dim arr, arr2(1 To 1000, 1 To 4), k
 4     arr = Range("a1:d5")
 5 ‘    MsgBox (UBound(arr))
 6 ‘    Stop
 7     For i = 1 To UBound(arr, 1)
 8         If arr(i, 1) = "虹虹" Then
 9             k = k + 1
10             arr2(k, 1) = arr(i, 1)
11             arr2(k, 2) = arr(i, 2)
12             arr2(k, 3) = arr(i, 3)
13             arr2(k, 4) = arr(i, 4)
14             Cells(i, 5) = "这个"
15         End If
16     Next
17     Range("a" & (2 + i)).Resize(k, 4) = arr2
18 End Sub