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

弱水三瓢

如题，初学宏，学习蓝桥版主的字典用法，自己试了一个算重复个数的例子，但展现不全，不知道是哪里错了，代码如下，求各位老师帮助：
Sub cfz()
Dim i&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Sheets("原始数据").Activate
    Arr = Sheets("原始数据").Range("A2", "B" & ([A1000000].End(xlUp).Row))
       For i = 1 To UBound(Arr)
           d(Arr(i, 1)) = d(Arr(i, 1)) + 1
       Next
    k = d.keys
    t = d.items
Sheets("sheet3").Activate
[a2].Resize(d.Count, 1) = Application.Transpose(k)
[b2].Resize(d.Count, 1) = Application.Transpose(t)
[a1].Resize(1, 2) = Array("公司名称", "重复个数")
Set d = Nothing
End Sub

小花鹿

Arr = Sheets("原始数据").Range("A2", "B" & (Sheets("原始数据").[A1000000].End(3).Row))

kankan1030

    r = Sheets("原始数据").Cells(Rows.Count, 1).End(xlUp).Row
    Arr = Sheets("原始数据").Range("a2:b" & r)

chxw68

1. Sub cfz()
   
2.   Dim i&, arr
   
3.   Dim d, k, t
   
4.   Set d = CreateObject("Scripting.Dictionary")
   
5.   With Worksheets("原始数据")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("a2:b" & r)
   
8.   End With
   
9.   For i = 1 To UBound(arr)
   
10.     d(arr(i, 1)) = d(arr(i, 1)) + 1
    
11.   Next
    
12.   With Worksheets("sheet3")
    
13.     .Range("a2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
14.   End With
    
15.   Set d = Nothing
    
16. End Sub

复制代码

弱水三瓢

小花鹿 发表于 2018-8-30 12:26
Arr = Sheets("原始数据").Range("A2", "B" & (Sheets("原始数据").[A1000000].End(3).Row))

非常感谢帮助！只是不是很明白这里为什么要加Sheets("原始数据")，我在立即窗口试了下Sheets("原始数据").Range("A2", "B" & ([A1000000].End(xlUp).Row)).select，没加Sheets("原始数据")，选的起啊

chxw68

详见附件。

弱水三瓢

kankan1030 发表于 2018-8-30 12:30
Range("A2", "B" & ([A1000000].End(xlUp).Row)) 这时两个单元格，不是一个连续区域。
多用F8一步一步看问 ...

非常感谢指教，但是我用select方法试了下，Range("A2", "B" & ([A1000000].End(xlUp).Row))选择的确实是区域。。。

弱水三瓢

chxw68 发表于 2018-8-30 12:36
详见附件。

非常感谢大侠帮助，确实不同凡响。

kankan1030

弱水三瓢 发表于 2018-8-30 12:55
非常感谢指教，但是我用select方法试了下，Range("A2", "B" & ([A1000000].End(xlUp).Row))选择的确实是 ...

我说错了。你的代码在sheet3中，如果 [A1000000].End(xlUp).Row 前面不加sheet则默认是sheet3的A列最后一行。

魂断蓝桥

cells（1，1） 如果前面没有表名称，工作簿名称，表示的是【活动工作簿-活动工作表的A1单元格】