vba如何对合并单元格右侧的数据进行求和与计数

zldccmx

ykcbf1100 发表于 2023-2-16 12:32
谢谢老师。

老师不敢当，喊我老朽或者老头都行

zldccmx

chxw68 发表于 2023-2-16 11:36
老朽老师解答得非常正确。

老师不敢当，称我为老朽就行了

SCWYZJ

我试了下，都可以。非常感谢各位的老师的的热心帮助

ykcbf1100

zldccmx 发表于 2023-2-16 13:47
老师不敢当，喊我老朽或者老头都行

你不一定有我大哦，我是63年出生的。

zldccmx

ykcbf1100 发表于 2023-2-16 16:09
你不一定有我大哦，我是63年出生的。

是我唐突了，你是大哥
我67年生人

ykcbf1100

zldccmx 发表于 2023-2-16 16:55
是我唐突了，你是大哥
我67年生人

哈哈，同辈人，幸会幸会！

SCWYZJ

老师们。我发现一个问题，计数时不能统计文本，只对数字有效。我是想统计非空数呀，怎么办呀？

准提部林

Sub TEST_A1()
Dim R&, X As Range, C, V
R = [d65536].End(3).Row
For i = R To 4 Step -1
    Set X = Cells(i, "b")
    C = C - (X(1, 3) <> "")
    V = V + Val(X(1, 3))
    If X.Address = X.MergeArea(1, 1).Address Then
       X = C: X(1, 2) = V
       C = 0: V = 0
    End If
Next i
End Sub

ykcbf1100

SCWYZJ 发表于 2023-2-16 18:52
老师们。我发现一个问题，计数时不能统计文本，只对数字有效。我是想统计非空数呀，怎么办呀？

你的希望结果就是统计数值的。如果是统计非空数，那结果不一样的。

SCWYZJ

ykcbf1100 发表于 2023-2-16 21:26
你的希望结果就是统计数值的。如果是统计非空数，那结果不一样的。

是我没表达清除,我是想用来统计房间实住人数的，人名是文本呀，函数可以，但是容易出错，不便操作，所以。。。。