某行一使用的单元格数

hhxq001

vba求某一行的一段单元格的数量，比如a3：r3中非空单元格的个数

cutecpu

Sub demo()
   For Each Rng In [a3:r3]
      If Rng.MergeCells Or Rng.Value > 0 Then c = c + 1
   Next
   Debug.Print c
End Sub

祝順心，南無阿彌陀佛！

hhxq001

cutecpu 发表于 2021-10-17 13:01
Sub demo()
   For Each Rng In [a3:r3]
      If Rng.MergeCells Or Rng.Value > 0 Then c = c + 1

Debug.Print c 是什么意思呢

cutecpu

hhxq001 发表于 2021-10-19 11:12
Debug.Print c 是什么意思呢