“运行时错误13 类型不匹配”错误的问题

shandongdxl

我正在处理一堆文件
同样一段代码，在一部分文件中出现“运行时错误13 类型不匹配”错误，在另一部分文件中就没事每个文件的表头都是相同的，数据行数不一样


我尝试过以下方法：
1.修改excel的宏设置，启用宏
2.把i 的 long改成int类型
3.把不能运行的文件中的内容剪贴出来放到一个新文件中，然后运行代码
4.把[A65536].End(xlUp).Row直接改成20000这种数字


以上都没法解决报错的问题。。。
请各位大佬指点！

代码如下

1. Sub my()
   
2. Dim i As Long
   
3. For i = [A65536].End(xlUp).Row To 2 Step -1
   
4. If Cells(i, 12) <> "" Then
   
5.     If Cells(i, 13) = "" Then                             
   
6.     Rows(i & ":" & i).Delete Shift:=xlUp
   
7.     End If
   
8. End If
   
9. Next
   
10. End Sub

复制代码

附件如下： 筛选示例.rar (588.31 KB, 下载次数: 1)

2018-7-12 23:08 上传

点击文件名下载附件

文件说明：9月是可以运行代码的，10月是无法运行代码的

不知道为什么

看了你的附件，因为你表格12列有 #VALUE! 错误值存在。所以要用 ISERROR 增加个判断。

不知道为什么

1. Sub my()
   
2. Dim i As Long
   
3. For i = [A65536].End(xlUp).Row To 2 Step -1
   
4. If Not IsError(Cells(i, 12)) Then
   
5.   If Len(Cells(i, 12).Value) > 0 Then
   
6.     If Cells(i, 13) = "" Then                              '这里的2就是你的列数，可以自己替换
   
7.     Rows(i & ":" & i).Delete Shift:=xlUp
   
8.     End If
   
9.   End If
   
10. End If
    
11. Next
    
12. End Sub

复制代码

shandongdxl

不知道为什么 发表于 2018-7-12 23:41

非常感谢，问题解决!