VBA比较列和火宏

Question

您好我有三列（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，正如Scott Craner在评论中提到并更改If声明：

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