[已解决]两列数值相等比对，在c列输入值为1,2,3时出现错误

15080359053

Sub test() Dim a 'Dim i As Integer For i = 4 To [c65536].End(xlUp).Row If Evaluate(Cells(i, 3).Value) = Cells(i, 10) Then Cells(i, 14) = "1" Else Cells(i, 14) = " " Next End Sub 这段代码为什么在C列只要输入值是1,2,3的时候就会运行出现错误，能帮忙解决一下吗。。

最佳答案

月排行榜 / 总排行榜

as0810114

2014-11-3 10:20

改成这样吧

1. Sub test()
   
2. Dim a 'Dim i As Integer
   
3. For i = 4 To [c65536].End(xlUp).Row
   
4. If --(Cells(i, 3).Value) = Cells(i, 10) Then Cells(i, 14) = "1" Else Cells(i, 14) = " "
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

qh8600

第10列为空了

c65536 改 j65536

as0810114

改成这样吧

1. Sub test()
   
2. Dim a 'Dim i As Integer
   
3. For i = 4 To [c65536].End(xlUp).Row
   
4. If --(Cells(i, 3).Value) = Cells(i, 10) Then Cells(i, 14) = "1" Else Cells(i, 14) = " "
   
5. Next
   
6. End Sub

复制代码

15080359053

as0810114 发表于 2014-11-3 10:20
改成这样吧

真的太谢谢了，，，，，