计数函数没有按预期工作。它将选定的计数显示为0,即使这些单元格中有数据。我试过用不同的细胞,它适用于一些细胞,但不适用于另一些细胞--有些细胞已经删除了信息,但并不是全部。
Sub AssignCount()
Dim result As Integer
'Assign the variable
result = WorksheetFunction.Count(Range("C11:C18"))
'Show the result
MsgBox "The number of cells populated with values is " & result
End Sub发布于 2022-10-04 10:10:05
最好清楚地了解你的目标范围。另外,根据您想要计数的内容,尝试切换到COUNTA()函数来计数数字和字符串值:
Sub AssignCount()
Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("resourcing")
Dim lr As Long, result As Long: lr = sht.Cells(sht.Rows.Count, 2).End(xlUp).Row
Dim rng As Range: Set rng = sht.Range("B2:B" & lr)
result = WorksheetFunction.CountA(rng)
MsgBox "The number of cells populated with values is " & result
End Sub发布于 2022-10-04 09:45:30
count :只计算数值
最好使用CountA,它既适用于数字数据,也适用于分类数据
https://stackoverflow.com/questions/73945994
复制相似问题