[已解决]运行提示错误 13

mooming

Sub huizong()
Dim d, k, t, arr, cel, r%, arr1()
Set d = CreateObject("Scripting.Dictionary")
arr = [u1:y10000]
For Each cel In arr
    If cel <> "" Then
        d(cel) = d(cel) + 1
    End If
Next
k = d.Keys
t = d.items
For i = 0 To UBound(k)
    If t(i) = 5 Then
        r = r + 1
        ReDim Preserve arr1(1 To r)
        arr1(r) = k(i)
    End If
Next
[z1].Resize(r, 1) = Application.Transpose(arr1)
End Sub


代码运行报错 运行时错误 “13”
类型不匹配
求大侠相助
见附件

最佳答案

月排行榜 / 总排行榜

xdragon

2013-12-1 01:42

在    If cel <> "" Then 行出错，原因是单元格有错误值#N/A
解决方案：
1、删除此错误单元格（定位→常量→勾选错误值→删除此单元格）
2、在for each 循环后，增加IF iserror(cel)=flase then
3、在for each 循环前，增加 on error resume next

跳转到最佳答案楼层

xdragon

在    If cel <> "" Then 行出错，原因是单元格有错误值#N/A
解决方案：
1、删除此错误单元格（定位→常量→勾选错误值→删除此单元格）
2、在for each 循环后，增加IF iserror(cel)=flase then
3、在for each 循环前，增加 on error resume next

qcw811206

xdragon 发表于 2013-12-1 01:42
在    If cel  "" Then 行出错，原因是单元格有错误值#N/A
解决方案：
1、删除此错误单元格（定位→常量→ ...

{:35:}