宏根据列值插入空行

Question

我尝试创建一个基于单元格值插入空行的宏失败。

我有一个批量数据，其中一列有不同的数字。根据列值，我需要在它下面插入一个空行。

Answer 1

如果我理解你，你应该做你想做的事 只需将“A：A”更改为您使用的范围，将“cell.Value = 1 Then更改为您需要找到要在其下添加空行的单元格的条件。

Dim i As Range
Dim cell As Range
Set i = Range("A:A")
For Each cell In i.Cells
If cell.Value = 1 Then
cell.Offset(1).EntireRow.Insert
End If
Next

Answer 2

以下是一个示例，如果您要根据列中值的突然变化（在本例中为＃34; C＆＃34;列）插入空行：

Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "C").End(xlUp).Row To 3 Step -1
    If Cells(lRow, "C") <> Cells(lRow - 1, "C") Then Rows(lRow).EntireRow.Insert
Next lRow

您可以将Cells(lRow - 1, "C")更改为您想要触发行插入的值，当然还有应用于此列的列。