[已解决]类型不匹配，改一下，谢谢！！！

fangniuji

1. Sub 基本资料()
   
2. 
   
3. 
   
4. Dim Ar, arr, i&
   
5. Range("f2:h" & Rows.Count).ClearContents
   
6. 
   
7. Set R = CreateObject("vbscript.regexp")
   
8. Dim An(1 To 99) As Long, K&, At(), Cel As Range
   
9. Const CN As Double = 25.4
   
10. Set Cel = Range("e:e").Find("%")
    
11. ' Range("b2:d" & Rows.Count).ClearContents
    
12. If Not Cel Is Nothing Then
    
13. Ar = Range("e2:e" & Cel.Row - 1).Value
    
14. arr = Range(Cel.Offset(1), Cel.End(4)).Value
    
15. ReDim At(1 To UBound(Ar), 1 To 3)
    
16. With R
    
17. .Global = True
    
18. .Pattern = ".*X.*Y.*"
    
19. For i = 1 To UBound(arr)
    
20. If Left(arr(i, 1), 1) = "T" Then
    
21. K = CByte(Mid(arr(i, 1), 2))
    
22. Else
    
23. If .test(arr(i, 1)) Then
    
24. An(K) = An(K) + 1
    
25. End If
    
26. End If
    
27. Next i
    
28. .Pattern = "(T(\d{2}))C(\.\d+)$"
    
29. For i = 1 To UBound(Ar)
    
30. If .test(Ar(i, 1)) Then
    
31. arr = Split(.Replace(Ar(i, 1), "$1 $3 $2"))
    
32. At(i, 1) = arr(0)
    
33. At(i, 2) = arr(1) * CN
    
34. At(i, 3) = An(CByte(arr(2)))
    
35. End If
    
36. Next i
    
37. End With
    
38. [f2].Resize(UBound(At), 3) = At
    
39. Set R = Nothing
    
40. 
    
41. MsgBox "处理完毕，请验证。"
    
42. End If
    
43. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-21 20:56

Ar = Range("e2:e" & Cel.Row - 1).Value
改成Ar = Range("e2:f" & Cel.Row - 1).Value

跳转到最佳答案楼层

hwc2ycy

AR不是数组。

hwc2ycy

Ar = Range("e2:e" & Cel.Row - 1).Value
改成Ar = Range("e2:f" & Cel.Row - 1).Value

hwc2ycy

如果不借一列，CEL.ROW-1等2时，取回的值就不是数据而一个普通的变量了。
借一列后，就是E2:F2，这样就是一个数组。

hwc2ycy

另外，当在10，07下保存带宏的工作簿时，要么是XLS,要么就是XLSM格式，否则代码会被抛弃的。