Dim r As Range, arr
Worksheets("Change List").Select
With CreateObject("scripting.dictionary")
For Each r In Range("s1:w" & Range("w665536").End(xlUp).Row)
If Not .exists(r.Value) Then .Add r.Value, Nothing
Next
Worksheets("整合区").Select
Range("A2:g2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("a2").Resize(.Count, 1) = WorksheetFunction.Transpose(.keys) (这句报错）
End With
第1个回答 2015-11-05
测试了一下，语法没错。
类型不匹配应该是.count或者.keys出错了
你可以在这一句前面加一个调试输出看看报错的时候这两个值是什么追问
类型不匹配应该是.count或者.keys出错了
你可以在这一句前面加一个调试输出看看报错的时候这两个值是什么追问
我试了下如果数据不超过60000多行的话运行没问题，但如果数据过多那句话就会报错，这怎么回事？
追答你的文件是03版的？
如果是就换成07的试试
追问我的文件本来是03的，用07的兼容模式也没问题。现在就是改用07的，用了以后我再执行这宏就出现错误了
本回答被提问者和网友采纳