统计单元格 非空 VBA

nnsea

Option Explicit

Sub 统计单元格()
    Dim arr() As String
    Dim n As Long
    '统计A列有多少个非空单元格
    n = Application.WorksheetFunction.CountA(Range("A:A"))
    MsgBox ("A列所有单元格的数量：" & n)
    '重新定义数组大小
    ReDim arr(1 To n) As String
   
End Sub