统计一列中单元格内容出现的次数

BU_PING

cjc209 发表于 2024-1-14 17:07
是的 要wps

我的版本不是WPS,请您发一个成功的工作簿

BU_PING

cjc209 发表于 2024-1-14 17:07
是的 要wps

有别的方法吗？不用自定义函数的？

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, dic As Object, strKey$, wks As Worksheet
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")

    For Each wks In Worksheets
        If wks.Name <> "结果" Then
            ar = wks.[A1].CurrentRegion.Value
            If IsArray(ar) Then
                For i = 2 To UBound(ar)
                    strKey = ar(i, 2)
                    dic(strKey) = dic(strKey) + 1
                Next i
            End If
        End If
    Next
    ar = Range("B2", Cells(Rows.Count, "B").End(xlUp)).Value
    For i = 1 To UBound(ar)
        strKey = ar(i, 1)
        ar(i, 1) = dic(strKey)
    Next i
   
    [D2].Resize(UBound(ar)) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

BU_PING

gwjkkkkk 发表于 2024-1-14 18:54
参与一下。。。

感恩您的帮助，简直太棒了。

yanglinzi

仅供参考。。