VBA我想获取筛选后可见单元格区域放进数组有什么方法吗

可以使用 `SpecialCells` 方法来获取筛选后的可见单元格区域，然后将其放入一个数组中。以下是示例代码：

Sub GetVisibleCells()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Long
    
    '获取筛选后的可见单元格区域
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
    
    '将单元格区域放入数组
    arr = rng.Value
    
    '遍历数组并输出
    For i = 1 To UBound(arr, 1)
        Debug.Print arr(i, 1)
    Next i
End Sub

在代码中，`UsedRange.SpecialCells(xlCellTypeVisible)` 用来获取筛选后的可见单元格区域。然后将其放入一个数组中，遍历数组并输出。你也可以根据需要修改代码来对筛选后的可见单元格区域进行其他操作。

相关问题

VBA将当前名字为机况的A1:B3 单元格数据放进数组内

你可以使用以下 VBA 代码将当前名为 "机况" 的 A1:B3 单元格范围内的数据存入数组中：

Dim myArray As Variant
myArray = Range("机况").Value

这样，myArray 就会包含 A1:B3 单元格范围内的数据。