VBA二维数组求非空值

在VBA中，可以使用循环遍历二维数组来求非空值。以下是一个示例代码：

Sub FindNonEmptyValues()
    Dim arr(1 To 3, 1 To 3) As Variant
    Dim i As Integer, j As Integer
    
    ' 假设arr是一个3x3的二维数组，其中包含一些非空值
    
    ' 遍历数组
    For i = 1 To 3
        For j = 1 To 3
            ' 判断数组元素是否为空
            If Not IsEmpty(arr(i, j)) Then
                ' 输出非空值
                Debug.Print arr(i, j)
            End If
        Next j
    Next i
End Sub

上述代码中，我们使用了两个嵌套的循环来遍历二维数组。在每个数组元素上，我们使用`IsEmpty`函数来判断该元素是否为空。如果不为空，则输出该元素的值。

相关问题

excel vba 筛选数据后再把数据写入数组的方法

在Excel VBA中，筛选数据并将其写入数组通常涉及以下步骤：

1. **设置筛选条件**：
使用 `Range.AutoFilter` 方法，指定需要筛选的列以及筛选条件。例如，假设我们要按A列降序筛选，可以这样做：

   Range("A1").AutoFilter Field:=1, Criteria1:="*", Operator:=xlDescending

这将筛选出A列从大到小的数据。

2. **获取筛选后的数据区域**：
调用 `Range.SpecialCells(xlCellTypeVisible)` 来获取筛选后可见的单元格范围。这将是一个`Range`对象，表示筛选后的数据。

3. **转换为数组**：
通过 `.Value` 属性将范围转换为数组。例如：

   Dim dataArray As Variant
   Set dataArray = ActiveSheet.Range.SpecialCells(xlCellTypeVisible).Value

`dataArray` 就是一个一维或二维数组，取决于数据如何分布在工作表上。

4. **清除筛选**：
完成操作后，记得关闭筛选以便其他操作：

   ActiveSheet.Range.AutoFilterMode = False

**相关问题：**
1. 在VBA中如何避免在处理完数据后忘记取消筛选？
2. 如果数据包含空值，如何处理这些空值再写入数组？
3. Excel VBA有没有更高效的方式一次性读取多列筛选后的数据？