[已解决]怎么用vba获取不连续的非空单元格的值

zscaa

各位大神，请问下如何快速用VBA获取非空单元格的值？就比如A3的值为100，那么我可以定位到A3然后获取A3里面的值，有什么方法可以快速定位所有非空单元格然后获取单元格里面的信息吗？（PS：不用一个个单元格循环遍历的情况，因为数据量有点大，附件只是部分数据）

最佳答案

月排行榜 / 总排行榜

哥儿-

2023-2-6 22:41

zscaa 发表于 2023-2-6 22:10
就比如A3的值为100，那么我可以定位到A3然后获取A3里面的值，有什么方法可以快速定位所有非空单元格然后 ...

看走眼了，不过应该少不了遍历循环的。用SpecialCells可以少循环一点。其实写入数组再来循环应该也不慢的。
Sub test()
    Dim rng As Range, rg As Range
    Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeConstants)
    For Each rg In rng
        Debug.Print rg.Value
    Next
End Sub

跳转到最佳答案楼层

哥儿-

不想遍历那用工作表函数来计算
Sub test()
    Dim num&
    num = WorksheetFunction.CountA(Cells)
    MsgBox "非空单元格数量:" & num & "个"
End Sub

zscaa

哥儿- 发表于 2023-2-6 19:58
不想遍历那用工作表函数来计算
Sub test()
    Dim num&

我这个不是要计算非空单元格的数目，是想定位到获取这些单元格的位置来获取里面的值

zscaa

哥儿- 发表于 2023-2-6 19:58
不想遍历那用工作表函数来计算
Sub test()
    Dim num&

就比如A3的值为100，那么我可以定位到A3然后获取A3里面的值，有什么方法可以快速定位所有非空单元格然后获取单元格里面的信息吗？

哥儿-

zscaa 发表于 2023-2-6 22:10
就比如A3的值为100，那么我可以定位到A3然后获取A3里面的值，有什么方法可以快速定位所有非空单元格然后 ...

看走眼了，不过应该少不了遍历循环的。用SpecialCells可以少循环一点。其实写入数组再来循环应该也不慢的。
Sub test()
    Dim rng As Range, rg As Range
    Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeConstants)
    For Each rg In rng
        Debug.Print rg.Value
    Next
End Sub