宏excel if else语句

Question

我正在创建一个宏来检查一整列中的单元格。我将第一个单元格与第二个单元格进行比较，将第二个单元格与第三个单元格进行比较，如果后续单元格小于前一个单元格，我将在它们之间添加一整行零，我该怎么做？

我有这样的事情：

Sub hello()
    For i = 1 To 10000
        If (C1 - C2 > 1) Then
            C2.EntireRow.Insert
        End If
    Next i
End Sub

但是失败了，正确的做法是什么？

Answer 1

首先，我已将 10000 值更改为行尾语句。因此，您不必为每种情况更改 For 循环并摆脱不必要的循环。插入新行后，您必须将 i 值增加两次以跳过因差异而创建的空行。在添加新行时，您必须选择 i+1，因为 excel 默认会添加新行并向下移动值。

Sub hello()
       For i = 1 To Range("A10000").End(3).Row
           If (Cells(i, 1) - Cells(i + 1, 1) > 1) Then
               Cells(i + 1, 1).EntireRow.Insert
               i = i + 1
       End If
  Next i
End Sub