VBA我想获取筛选后可见单元格区域放进数组有什么方法吗
时间: 2024-02-29 17:53:19 浏览: 51
可以使用 `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将当前sheet name为 XXA 的A1:B3 单元格数据放进数组内
好的,针对你的问题,以下是VBA代码示例,可以将当前sheet name为XXA的A1:B3单元格数据放入数组内:
```
Sub ArrayExample()
Dim dataArray(1 To 3, 1 To 2) As Variant
Dim i As Integer, j As Integer
'将数据存入数组
For i = 1 To 3
For j = 1 To 2
dataArray(i, j) = Sheets("XXA").Cells(i, j).Value
Next j
Next i
'输出数组中的数据
For i = 1 To 3
For j = 1 To 2
Debug.Print dataArray(i, j)
Next j
Next i
End Sub
```
在这个例子中,我们定义了一个名为dataArray的变量作为数组,然后使用双重循环遍历A1:B3单元格,将其值存储在数组中。最后,我们可以通过循环打印数组中的数据来验证已成功导入。
VBA将当前名字为机况的A1:B3 单元格数据放进数组内
你可以使用以下 VBA 代码将当前名为 "机况" 的 A1:B3 单元格范围内的数据存入数组中:
```
Dim myArray As Variant
myArray = Range("机况").Value
```
这样,myArray 就会包含 A1:B3 单元格范围内的数据。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)