用VBA统计个数,请高师赐教,谢谢

郝圣卿

Sub hao()

    Dim arr, JsNum%, endNum%, i%, j%
    endNum = Cells(Rows.Count, 4).End(xlUp).Row
    arr = Range("b3").CurrentRegion
        For j = 3 To endNum
            JsNum = 0
            For i = 2 To UBound(arr)
                If Range("d" & j) = arr(i, 1) Then
                    JsNum = JsNum + 1
                    Range("f" & j) = JsNum
                End If
            Next
        Next
End Sub

徐海洋

feilanga 发表于 2025-10-31 09:56
有个工具叫VBA代码助手，一建释义

您好,高师,怎么一键释意?

cjc209

徐海洋 发表于 2025-11-1 13:18
您好,高师,怎么一键释意?

cjc209

徐海洋 发表于 2025-11-1 13:18
您好,高师,怎么一键释意?

vba代码助手 非常强大 郑广学老师开发的 我都在使用

徐海洋

cjc209 发表于 2025-11-1 13:31
vba代码助手 非常强大 郑广学老师开发的 我都在使用

我怎么没这功能

cjc209

徐海洋 发表于 2025-11-1 14:43
我怎么没这功能

要安装郑广学的最新版 专业版的代码助手 才可能有 是收费插件 专门针对vba使用的

cjc209

徐海洋 发表于 2025-11-1 14:43
我怎么没这功能

https://vbayyds.com/

徐海洋

郝圣卿 发表于 2025-10-31 22:22
Sub hao()

    Dim arr, JsNum%, endNum%, i%, j%

这怎么用不了,请赐教,谢谢

徐海洋

cjc209 发表于 2025-11-1 14:49
要安装郑广学的最新版 专业版的代码助手 才可能有 是收费插件 专门针对vba使用的

谢谢指点,要收费吗?

cjc209

徐海洋 发表于 2025-11-1 15:09
谢谢指点,要收费吗?

一次性收费 终生可以升级更新使用