新手，学习用字典算重复个数，算不全

弱水三瓢 · 发表于 2018-8-30 14:21

kankan1030 发表于 2018-8-30 13:11
我说错了。你的代码在sheet3中，如果 [A1000000].End(xlUp).Row 前面不加sheet则默认是sheet3的A列最后一 ...

明白了谢谢。

弱水三瓢 · 发表于 2018-8-30 14:22

魂断蓝桥发表于 2018-8-30 14:11
cells（1，1）如果前面没有表名称，工作簿名称，表示的是【活动工作簿-活动工作表的A1单元格】

明白了，多谢帮助！

小花鹿 · 发表于 2018-8-30 20:53

你还是没弄明白问题所在，你的代码是完全正确的，只是放的位置不对，如果代码放在模块中结果完全正确，但放在工作表中就有问题了，具体原因自己想吧

zhangcheng6688 · 发表于 2018-8-31 15:12

chxw68 发表于 2018-8-30 12:35

学习了，谢谢侠圣！！！

弱水三瓢 · 发表于 2018-9-19 22:27

chxw68 发表于 2018-8-30 12:35

再次学习，多谢大神！

zhangcheng6688 · 发表于 2024-3-8 12:24

学习一下字典
Sub test()
arr = Sheets("原始数据").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + 1
Next
Sheets("sheet3").[a2].Resize(d.Count, 2) = Application.WorksheetFunction.Transpose(Array(d.keys, d.items))
End Sub

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

[求助] 新手，学习用字典算重复个数，算不全