[已解决]运行时错误13

菜馊鱼

以下是代码

Sub 按单元格去重()
Dim dic As Object, cel As Range
Set dic = CreateObject("scripting.dictionary")
Sheets("需去重数据").Activate
For Each cel In ActiveSheet.UsedRange
   dic(cel.Value) = 1
Next
Sheets("去重结果").Activate
Range("A1").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub



麻烦大神帮忙解答以下~

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-2-6 18:59

1. Sub 按单元格去重()
   
2.     Dim dic As Object, cel As Range
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     Sheets("需去重数据").Activate
   
5.     For Each cel In ActiveSheet.UsedRange
   
6.         dic(cel.Value) = 1
   
7.     Next
   
8.     Sheets("去重结果").Activate
   
9.     For Each k In dic.keys '这样改一下
   
10.         n = n + 1
    
11.         Cells(n, 1) = k
    
12.         'Range("A1").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
13.     Next
    
14. End Sub

复制代码

改下缩进

跳转到最佳答案楼层

菜馊鱼

按单元格去重0206.rar (25.93 KB, 下载次数: 3)

2017-2-6 18:09 上传

点击文件名下载附件

望帝春心

transpose字符数超限了，不能大于256好像，你单元格内容超了

望帝春心

1. Sub 按单元格去重()
   
2.     Dim dic As Object, cel As Range
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     Sheets("需去重数据").Activate
   
5.     For Each cel In ActiveSheet.UsedRange
   
6.         dic(cel.Value) = 1
   
7.     Next
   
8.     Sheets("去重结果").Activate
   
9.     For Each k In dic.keys '这样改一下
   
10.         n = n + 1
    
11.         Cells(n, 1) = k
    
12.         'Range("A1").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
13.     Next
    
14. End Sub

复制代码

改下缩进

菜馊鱼

望帝春心 发表于 2017-2-6 18:59
改下缩进

喔，成功了，感谢大神~~~

望帝春心

菜馊鱼 发表于 2017-2-7 09:22
喔，成功了，感谢大神~~~

不客气，有帮助就评下最佳吧

菜馊鱼

望帝春心 发表于 2017-2-7 09:26
不客气，有帮助就评下最佳吧

喔，好了，第一次发帖，刚刚才知道可以设置最佳~~~