[已解决]类型不匹配问题

fangniuji

Sub Eee()
If Range("a1") = "" Then
    MsgBox "无数据可处理。"
    Exit Sub
  End If
   
    Dim d, Temp
    Dim R&, R1
   
    Dim arr, arr1
    Set d = CreateObject("Scripting.Dictionary")
    R = Range("A65536").End(xlUp).Row
    R1 = Range("e65536").End(xlUp).Row
    arr = Range("A1:A" & R).Value
    arr1 = Range("e1:e" & R1).Value
    For Each Temp In arr
        d(Temp) = 1
    Next
    For Each Temp In arr1
    If Not d.Exists(Temp) Then
        d(Temp) = 1
    Else
        d.Remove (Temp)
    End If
    Next
    Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
  End Sub

最佳答案

月排行榜 / 总排行榜

suye1010

2012-12-1 15:38

1. Sub Eee()
   
2. If Range("a1") = "" Then
   
3.     MsgBox "无数据可处理。"
   
4.     Exit Sub
   
5.   End If   
   
6.     Dim d, Temp, dc, R, R1,arr, arr1
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     R = Application.WorksheetFunction.CountA(Columns("A"))
   
9.     R1 = Application.WorksheetFunction.CountA(Columns("E"))
   
10.     arr = Range("A1:A" & R).Value
    
11.     arr1 = Range("e1:e" & R1).Value
    
12.     For Each Temp In arr
    
13.         d(Temp) = 1
    
14.     Next
    
15.     For Each Temp In arr1
    
16.     If Not d.Exists(Temp) Then
    
17.         d(Temp) = 1
    
18.     Else
    
19.         d.Remove (Temp)
    
20.     End If
    
21.     Next
    
22.     For Each dc In d.keys
    
23.         k = k + 1
    
24.         Cells(k, 2) = dc
    
25.     Next
    
26.   End Sub

复制代码

跳转到最佳答案楼层

mxg825

你使用的是07版，并且数据行超过65536行
要把 65536 改成 1048576 就可以了

R = Range("A1048576").End(xlUp).Row
R1 = Range("1048576").End(xlUp).Row

suye1010

你的数据行数为70475，超过了65536，所以Range("A65536").End(xlUp).Row返回的值是1，造成了For each temp in arr语句中arr不是数组，所以提示类型不匹配

suye1010

你的数据行数为70475，超过了65536，所以Range("A65536").End(xlUp).Row返回的值是1，造成了For each temp in arr语句中arr不是数组，所以提示类型不匹配
将R的赋值语句改为以下的试试：
    R = Application.WorksheetFunction.CountA(Columns("A"))

fangniuji

suye1010 发表于 2012-12-1 11:31
你的数据行数为70475，超过了65536，所以Range("A65536").End(xlUp).Row返回的值是1，造成了For each temp  ...

谢谢你的帮忙，可能我不会改，你帮我一下，谢谢。好像这句 Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)也有问题

fangniuji

mxg825 发表于 2012-12-1 11:25
你使用的是07版，并且数据行超过65536行
要把 65536 改成 1048576 就可以了

谢谢你的帮忙，可能我不会改，你帮我一下，谢谢。好像这句 Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)也有问题

hwc2ycy

貌似是超出长度限限了，

hwc2ycy

一过63336，就报错了。
貌似有潜在的长度限制。
测了几次也是。

hwc2ycy

suye1010

1. Sub Eee()
   
2. If Range("a1") = "" Then
   
3.     MsgBox "无数据可处理。"
   
4.     Exit Sub
   
5.   End If   
   
6.     Dim d, Temp, dc, R, R1,arr, arr1
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     R = Application.WorksheetFunction.CountA(Columns("A"))
   
9.     R1 = Application.WorksheetFunction.CountA(Columns("E"))
   
10.     arr = Range("A1:A" & R).Value
    
11.     arr1 = Range("e1:e" & R1).Value
    
12.     For Each Temp In arr
    
13.         d(Temp) = 1
    
14.     Next
    
15.     For Each Temp In arr1
    
16.     If Not d.Exists(Temp) Then
    
17.         d(Temp) = 1
    
18.     Else
    
19.         d.Remove (Temp)
    
20.     End If
    
21.     Next
    
22.     For Each dc In d.keys
    
23.         k = k + 1
    
24.         Cells(k, 2) = dc
    
25.     Next
    
26.   End Sub

复制代码