插入带有条件的行 VBA Excel

Question

每当单元格(j，1(与(j-1,1(不同时，我想插入一行，这是我的代码：

Sub colocar_Linha()
ultima_linha = Worksheets("Sheet2").Range("A3").End(xlDown).Row
i = 3
While i <= ultima_linha
If Not Cells(i, 1) = Cells(i - 1, 1) Then
Rows(i).Insert shift:=xlShiftDown
End If
i = i + 1
Wend
End Sub

Answer 1

修复了最后一行值抓取 和 if 条件 根据您的评论，我在行坚持后为 i 添加了 1 这样，一旦插入了一行，计数器就会随之而来，并跳过新的空白行。由于整个范围增加了，那么ultima_linha也应该增加：

Sub colocar_Linha()
ultima_linha = Worksheets("Sheet2").Range("A3").CurrenRegion.Rows.count
i = 3
While i <= ultima_linha
If Not (Cells(i, 1).value = Cells(i - 1, 1). value) Then
Rows(i).Insert shift:=xlShiftDown
i = i + 1
ultima_linha = ultima_linha + 1;

End If
i = i + 1
Wend
End Sub