[已解决]求助：类型不匹配

令狐风

1. Private Sub aaa()
   
2.     Dim i As Integer
   
3.     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
4.         If Month(Cells(i, 1)) <> Month(Cells(i + 1, 1)) Then
   
5.             Cells(i, 3) = Cells(i, 2)
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

请问这个代码哪里类型不匹配了，应该如何修改？非常感谢！

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-5-8 14:50

你这不匹配是因为最后行是中文！把它删掉就好了！

跳转到最佳答案楼层

zjcat35

没啥问题呀！   上个附件看看

令狐风

zjcat35 发表于 2012-5-8 14:44
没啥问题呀！   上个附件看看

目的是把每月的最后一个数据从第二列复制到第三列
谢谢！

测试.zip (60.76 KB, 下载次数: 1)

2012-5-8 14:47 上传

点击文件名下载附件

zjcat35

你这不匹配是因为最后行是中文！把它删掉就好了！

令狐风

zjcat35 发表于 2012-5-8 14:50
你这不匹配是因为最后行是中文！把它删掉就好了！

哦 原来是这样。。。。我都没发现最后有中文
谢谢啦！