VBA比较列和消防macros

嗨，我有三列（ABC）与多行。

我需要检查B是否大于C，如果是这样，加1到C并重复，直到最后一行。 我得到一个语法错误，任何帮助非常感谢！

Sub test6() Dim LastRow As Long, i As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To LastRow If Range("B" & i).Value > ("C" & i).Value Then Range("C" & i).Value 1 Else: End If Next i End Sub 

Answer 1

删除Else: End If如斯科特·克莱纳在评论和改变中提到If声明：

 If Range("B" & i).Value > Range("C" & i).Value Then Range("C" & i).Value = Range("C" & i).Value + 1