• 定义数组的时候，数组开始是没有数据的，我们需要将数据放进数组，然后进行操作。
• 操作数组，一般遵从这样的流程。
• 数组赋值，将数据放进数组。
• 操作数组，处理数据，获得想要的结果。
• 将结果输出到工作表。
• 这样看起来比直接操作工作表麻烦，但实际上比直接操作工作表要快很多很多。
• 数组的赋值
• 1、循环赋值，下面代码生成一个1-10序列的一维数组。

Sub ss()
   Dim arr(1 To 10) As Long
   Dim i As Long
   For i = 1 To 10
       arr(i) = i
       Debug.Print arr(i)
End Sub
当然，我们也可以通过循环将单元格的值写入数组，但这种方式效率太差，直接读取单元格区域效率更佳。
Dim arr()这里声明的是一个没有指定大小的数组，它可以是任意大小的，视乎工作表里数据的多少（Range的CurrentRegion属性）而变化，换言之，这是一个动态数组，随动态单元格变化而变化。
数组直接读取单元格区域的，返回的都是二维数组。
Sub vv()
Dim arr(), brr()
arr = Range("a1:a6").Value
brr = Range("a1:b1").Value
End Sub
arr = Range("a1:b6")
brr = Sheets("数组").Range("a1:b6").Value
crr = Sheets("数组").Range("a1:b6")
End Sub
1:        Dim arr, i As Long, k As Long
2:        arr = Range("a2:b6").Value
3:        For i = 1 To UBound(arr)
4:            If arr(i, 2) >= 300 Then
5:                k = k + 1
6:                arr(k, 1) = arr(i, 1)
7:                arr(k, 2) = arr(i, 2)
8:            End If
9:        Next
10:        Range("d2").Resize(k, 2) = arr
       End Sub
第2行代码，将数据赋值到数组arr
第3行代码，For循环遍历数据
第4行代码，操作数组就如操作单元格区域一样，arr(i, 2),就是工资的数据。
第5行代码，对符合条件的数据进行计数
第6、7行代码，将符合条件的数据，替换到数组arr自身当中。如k=1时，提取的是郭靖的数据，那么此时数组arr的第一行数据就不是令狐冲的数据了，郭靖代替了令狐冲，k=2时，继续类似替换......由于数组的改变是发生在内存当中的，因此不需要担心会对工作表中的数据造成影响。如下图，arr(1,1)和arr(3,1)是2个郭靖的数据。
第10行代码，是输出数组中符合条件的数据到工作表中。注意K的值，K是符合条件的数据条数，这个例子中K=3，用resize属性，可以截取数组大小，数组arr实际上是5行2列大小，但这里用resize，截取K（3）行2列的部分，也就是符合条件的数据。
运行代码至第10行，可以看到数组arr前面3条数据都是更改了的，是工资大于等于300的符合条件数据，因此  K 的值就是用来截取这部分的数据，输出到工作表上。