VBA比较列和消防宏

Question

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

我需要检查B是否大于C，如果是，则将C加1并重复直到最后一行。 我遇到语法错误，不胜感激！

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