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

说明（2017.3.25）：

1. 知识点为dim arr2(1 to 1000, 1 to 4)先定义一个足够大的二维数组，不然后面需要transpose转置成一维数组。

 '抽取列表中叫“虹虹”的所有信息，设置arr2数组1到1000，可以省略转置步骤
 Public Sub test1()
     Dim arr, arr2( To ,  To ), k
     arr = Range("a1:d5")
 '    MsgBox (UBound(arr))
 '    Stop
     For i =  To UBound(arr, )
         If arr(i, ) = "虹虹" Then
             k = k +
             arr2(k, ) = arr(i, )
             arr2(k, ) = arr(i, )
             arr2(k, ) = arr(i, )
             arr2(k, ) = arr(i, )
             Cells(i, ) = "这个"
         End If
     Next
     Range("a" & ( + i)).Resize(k, ) = arr2
 End Sub