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