代码运行错误，类型不匹配，什么原因

89762566

数据量过大了才出这个问题的，之前一万条数据都是正常，把这里面的数据分两次运行也是正常的，请高手指点
附件中，请把
江苏汽车服务.z01.zip
江苏汽车服务.z02.zip
江苏汽车服务.z03.zip
这三个文件的.zip去掉，然后再解压 江苏汽车服务.zip 这个文件

金樽空对月

2003版的最大行数为65536行，只要不超过这个数量应该不会有问题，如果大于这个数据量，建议你换用2007及以上版本的。

grf1973

问题出在代码4。好象数据量太大用transpose会出问题，把arr2,arr3改成二维数据就可以了。

1. Sub 代码04拆分市区()
   
2.     Dim s, x, arr, arr2(), arr3
   
3.     aa = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = Range("F3:F" & aa)
   
5.     ReDim arr2(1 To UBound(arr), 1 To 1)
   
6.     ReDim arr3(1 To UBound(arr), 1 To 1)
   
7.     For x = 1 To UBound(arr)
   
8.         s = Split(arr(x, 1), " "): arr2(x, 1) = s(UBound(s))
   
9.         arr3(x, 1) = Left(arr(x, 1), InStrRev(arr(x, 1), " ") - 1)
   
10.     Next x
    
11.     Range("F3:F" & aa).ClearContents
    
12.     Range("F3").Resize(UBound(arr), 1) = arr2         'Application.Transpose(arr2)
    
13.     [c3].Resize(UBound(arr), 1) = arr3       'Application.Transpose(arr3)
    
14. End Sub

复制代码