如何按多个类别汇总个数，提示for each 控件变量必须为变体或对象，求大神指点

LIUZHU

需要WPS测试

zhangcheng6688

^星^ 发表于 2024-3-25 13:34

把老师的代码复制出来
Sub test()
    Dim arr, brr, crr, dic, i&, j&, k
    Set dic = CreateObject("scripting.dictionary")
    arr = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
    For i = 1 To UBound(arr)
        brr = Split(arr(i, 1), " ")
        If Not dic.Exists(brr(0)) Then
            Set dic(brr(0)) = CreateObject("scripting.dictionary")
        End If
        dic(brr(0))(brr(1)) = dic(brr(0))(brr(1)) + 1
    Next
    ReDim crr(1 To UBound(arr), 1 To 3)
    crr(1, 1) = "名称": crr(1, 2) = "码数": crr(1, 3) = "个数"
    j = 1
    For Each k In dic.Keys
        For i = 0 To UBound(dic(k).Keys)
            j = j + 1
            crr(j, 1) = k
            crr(j, 2) = dic(k).Keys()(i)
            crr(j, 3) = dic(k).Items()(i)
        Next
    Next
   
    [c1].Resize(j, 3) = crr
End Sub