VBA 第11课 数组,取特定行数据

Sub d1()
Dim arr, arr1(1 To 1000, 4)
arr = Range("a1:d10")
Dim x, k
For x = 1 To UBound(arr)
    If arr(x, 1) = "B" Then
        k = k + 1
        arr1(k, 1) = arr(x, 1)
        arr1(k, 2) = arr(x, 2)
        arr1(k, 3) = arr(x, 3)
        arr1(k, 4) = arr(x, 4)
    End If
Next x
    Range("a13").Resize(k, 5) = arr1
End Sub

转载请注明作者与出处：http://blog.csdn.net/u013511642  王小涛_同學