[已解决]插入空缺的日期 代码出现“运行时错误‘13’类型不匹配”应如何解决？

对你微笑

Sub 插入空缺的日期()
Dim i&, r&, a&, j&
Sheet1.Activate
r = [a65536].End(xlUp).Row
For i = r To 3 Step -1
   If CDate(Cells(i, 4)) <> CDate(Cells(i - 1, 4)) + 1 Then
      a = CDate(Cells(i, 4)) - CDate(Cells(i - 1, 4))
      Rows(i & ":" & i + a - 2).Insert
      For j = i To i + a - 2
         Cells(j, 4) = CDate(Cells(j - 1, 4)) + 1
      Next j
   End If
Next
End Sub
为何我运行到If CDate(Cells(i, 4)) <> CDate(Cells(i - 1, 4)) + 1 Then出现“运行时错误‘13’类型不匹配
插入行并填充日期.rar (127.79 KB, 下载次数: 18)

2013-2-14 21:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-14 21:52

看了你的附件，原因已经明白了，当i=3时，B2单元格是表头，不是日期，所以出错，只要让i从4开始运行即可

跳转到最佳答案楼层

对你微笑

为何我运行到If CDate(Cells(i, 4)) <> CDate(Cells(i - 1, 4)) + 1 Then出现“运行时错误‘13’类型不匹配”应如何解决，求各位大师帮忙，谢谢！！！

suye1010

可能的原因是你的日期格式不是Excel内部可以识别的格式,譬如中间有多余的空格啊之类的字符,为了正确运行,可以统一日期格式为英文的2012/1/1之类的

cbg2008

估计是D列的数据是文本，且不能被系统识别为日期，你可以在D列填上数字后，再运行试试。

对你微笑

cbg2008 发表于 2013-2-14 21:22
估计是D列的数据是文本，且不能被系统识别为日期，你可以在D列填上数字后，再运行试试。

谢谢suye1010及cbg2008已上传附件，重新设置为日期格式，仍然不行？

cbg2008

看了你的附件，原因已经明白了，当i=3时，B2单元格是表头，不是日期，所以出错，只要让i从4开始运行即可

对你微笑

cbg2008 发表于 2013-2-14 21:52
看了你的附件，原因已经明白了，当i=3时，B2单元格是表头，不是日期，所以出错，只要让i从4开始运行即可

谢谢！已经可以了。。。。