请改公式为vba代码

zhangzhang

lrh788 发表于 2018-5-23 22:18
我的意思是在c列直接把所有重复数据的重复次数都依次显示出来
AAA1        BBB1        4
AAA2         ...

你 模拟 一个附件： 只有三四行数据即可。（说明 原始数据 及 结果）

lrh788

AAA1        BBB1        4
AAA2        BBB2        4
AAA3        BBB3        4
AAA4        BBB4        4
AAA5        BBB5        4
AAA6        BBB6        4
AAA1        BBB1        4
AAA2        BBB2        4
AAA3        BBB3        4
AAA4        BBB4        4
AAA5        BBB5        4
AAA6        BBB6        4
AAA1        BBB1        4
AAA2        BBB2        4
AAA3        BBB3        4
AAA4        BBB4        4
AAA5        BBB5        4
AAA6        BBB6        4
AAA1        BBB1        4
AAA2        BBB2        4
AAA3        BBB3        4
AAA4        BBB4        4
AAA5        BBB5        4
AAA6        BBB6        4
这就是我的意图

zhangzhang

Public Sub test()
Dim Arr, Brr
Dim i As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Range("A1").CurrentRegion

For i = 1 To UBound(Arr)
    Dic(Arr(i, 1) & Arr(i, 2)) = Dic(Arr(i, 1) & Arr(i, 2)) + 1
Next i

ReDim Brr(1 To UBound(Arr), 1 To 1)

For i = 1 To UBound(Brr)
    Brr(i, 1) = Dic(Arr(i, 1) & Arr(i, 2))
Next i

Range("C1").Resize(UBound(Brr)) = Brr

Set Dic = Nothing
Set Arr = Nothing
Set Brr = Nothing

End Sub

lrh788

zhangzhang 发表于 2018-5-23 22:51
Public Sub test()
Dim Arr, Brr
Dim i As Long

谢谢，就是这样

lrh788

zhangzhang 发表于 2018-5-23 22:51
Public Sub test()
Dim Arr, Brr
Dim i As Long

再请教下，数组与字典在代码运行结束均需要加释放内存语句Set Dic = Nothing
Set Arr = Nothing   Set Brr = Nothing不加有什么影响？

zhangzhang

个人理解 ： 只要是  XXX 为局部（过程）变量，不加 set XXX =nothing，也没影响。XXX 为全局变量时，就有影响了。

wxm170236410

VBA高手解决下http://club.excelhome.net/thread-1415397-1-1.html的问题！

lrh788

老师，如果有4个重复数据行，能否修改代码做到在第一个数据行显示1.在第二个数据行显示2，在第三个数据行显示3,在第四个数据行显示4

lrh788

老师，如果有4个重复数据行，能否修改代码做到在第一个数据行显示1.在第二个数据行显示2，在第三个数据行显示3,在第四个数据行显示4,显示效果如下：因为原表中前两列数据是乱的



AAA1 BBB1 1
AAA2 BBB2 1
AAA3 BBB3 1
AAA4 BBB4 1
AAA5 BBB5 1
AAA6 BBB6 1
AAA1 BBB1 2
AAA2 BBB2 2
AAA3 BBB3 2
AAA4 BBB4 2
AAA5 BBB5 2
AAA6 BBB6 2
AAA1 BBB1 3
AAA2 BBB2 3
AAA3 BBB3 3
AAA4 BBB4 3
AAA5 BBB5 3
AAA6 BBB6 3
AAA1 BBB1 4
AAA2 BBB2 4
AAA3 BBB3 4
AAA4 BBB4 4
AAA5 BBB5 4
AAA6 BBB6 4

zhangzhang

lrh788 发表于 2018-5-24 15:17
老师，如果有4个重复数据行，能否修改代码做到在第一个数据行显示1.在第二个数据行显示2，在第三个数据行显 ...

Public Sub test()
Dim Arr, Brr
Dim i As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Range("A1").CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
    Dic(Arr(i, 1) & Arr(i, 2)) = Dic(Arr(i, 1) & Arr(i, 2)) + 1
    Brr(i, 1) = Dic(Arr(i, 1) & Arr(i, 2))
Next i


Range("C1").Resize(UBound(Brr)) = Brr

Set Dic = Nothing
Set Arr = Nothing
Set Brr = Nothing

End Sub