字典求重复数量的结果进入数组

pepsi7777 · 发表于 2023-4-2 01:02

本帖最后由 pepsi7777 于 2023-4-2 15:43 编辑

各位老师好
通过字典求重复数量，结果如何进入数组？感谢

Sub test()

arr1 = Array("A", "D", "B", "B", "C")
Dim dict1 As Object
Set dict1 = CreateObject("scripting.dictionary")
arr2 = arr1
For I = LBound(arr1) To UBound(arr1)
m = 1
For J = LBound(arr2) To UBound(arr2)
      If arr1(I) = arr2(J) Then
         dict1(arr1(I)) = m
         m = m + 1
      End If
Next
Next

'结果如何进入数组arr3 ？

For Each I In dict1.keys()
Debug.Print I & "," & dict1(I)
Next

End Sub

taller · 发表于 2023-4-2 09:24

zjzyj · 发表于 2023-4-2 14:17

pepsi7777 · 发表于 2023-4-2 15:41

zjzyj 发表于 2023-4-2 14:17

感谢 zjzyj 老师

pepsi7777 · 发表于 2023-4-2 15:42

taller 发表于 2023-4-2 09:24

感谢 taller 老师

		自动登录	找回密码
密码			免费注册

[已解决] 字典求重复数量的结果进入数组

评分

评分