我有一个关于如何使用 vba 在 excel 中计算单元格的问题，我找到了这段代码，但没有按预期工作
Dim count As Long
count= ActiveSheet.Range("B5", ActiveSheet.Cells(Rows.count,1).End(xlDown)).Rows.count
MsgBox count
我的问题是，假设我的数据标题在单元格 B4 中，我的数据从 B5 开始到同一 B 列中的未知行。我如何计算填充了多少行（从 B5 开始）？（没有空白单元格）
我还发现了如何将范围内的值分配给数组
MyVector = Range("B5:B" & count).Value
但我不知道如何知道计数变量
任何帮助将非常感激
编辑：适当范围的数组大小
数据从B5开始
没有空白单元格
然后用这个
Dim count As Long
count = WorksheetFunction.CountA(Range("B5", Range("B5").End(xlDown)))
Dim MyVector As Variant
MyVector = Range("B5").Resize(count).Value
或者，直接：
Dim MyVector As Variant
MyVector = Range("B5").Resize(WorksheetFunction.CountA(Range("B5", Range("B5").End(xlDown)))).Value
但是，如果根本没有数据，则在填充数组之前检查计数：
Dim count As Long
count = WorksheetFunction.CountA(Range("B5", Range("B5").End(xlDown)))
Dim MyVector As Variant
If count > 0 Then MyVector = Range("B5").Resize(count).Value
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句