【Excel VBA】数组应用(2)

图1 源数据

如果需要查询所有"编号"为"EH002"的记录，并将查询结果展示在单元格区域中，示例代码如下。

Sub LoopArr()
     Dim avntData() As Variant'声明数组保存数据源
     Dim avntResults(1 To 30, 1 To 4) As Variant
     Dim intCount As Integer'声明变量用于记录符合条件的数量
     Dim i As Integer
     avntData() = Sheets("数据源").Range("a2:d31").Value
     For i = 1 To UBound(avntData(), 1)
         If avntData(i, 2) = "EH002" Then
             intCount = intCount + 1
             avntResults(intCount, 1) = avntData(i, 1)
             avntResults(intCount, 2) = avntData(i, 2)
             avntResults(intCount, 3) = avntData(i, 3)
             avntResults(intCount, 4) = avntData(i, 4)
         End If
     Next i
     Range("A2").Resize(intCount, 4) = avntResults()'将数组写入单元格区域中
 End Sub

第3行代码声明数组用于保存查询结果。由于结果条数未知，所以定义数组的行数大于或等于数据源行数。除此之外，也可以使用定义动态数组的方式。

注：数组输出到单元格区域时，通常与Range.Resize语句配合使用，以便确定目标单元格区域的范围。

运行LoopArr过程，结果如图2所示。