[已解决]新人求助~excel一运行宏就卡死，退出时提示：”方法value作用于对象range时失效

metalhammer

小白求助，excel运行宏时就卡死，退出时提示：”方法value作用于对象range时失效，请问是什么原因呢？是电脑配置太低造成的吗？宏:已知a,b两列数据，合并a列相同数据，与之对应的b列数据合并用逗号隔开保存.目前a,b两列各有2万+数据，一跑就卡死。。。

宏代码

Sub g() Dim rng As Range Set d = CreateObject("scripting.dictionary") For Each rng In Range(Cells(2, 1), Cells(Rows.Count, 1).End(3))     d(rng.Value) = "" Next rng For Each rngd In d.keys     For Each rng In Range(Cells(2, 1), Cells(Rows.Count, 1).End(3))         If rngd = rng.Value Then             t = t & rng.Offset(, 1) & ","         End If     Next rng     n = n + 1     Cells(n + 1, "d").Value = rngd     Cells(n + 1, "e").Value = Left(t, Len(t) - 1)     t = "" Next rngd End Sub

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-22 22:24

25000条数据运行0.2s

跳转到最佳答案楼层

我心飞翔410

上传附件看看

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. t = Timer
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     If Not d.exists(arr(i, 1)) Then d(arr(i, 1)) = arr(i, 2) Else d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
   
8. Next
   
9. Range("d1").Resize(d.Count) = Application.Transpose(d.keys)
   
10. Range("e1").Resize(d.Count) = Application.Transpose(d.items)
    
11. MsgBox Timer - t
    
12. End Sub
    

复制代码

dsmch

25000条数据运行0.2s

su45

你代码中的.Value都可以删掉，但没有附件不好说！

dsmch

su45 发表于 2014-3-22 22:34
你代码中的.Value都可以删掉，但没有附件不好说！

单元格后.value在字典中恰恰不能去掉，不要误人