用于根据列值插入空行的宏

Question

我正在尝试创建一个宏来根据单元格值插入空行，但未成功。

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

Answer 1

如果我理解正确的话，这应该可以做你想做的事情。

只需将"A:A“更改为您使用的范围，将If 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

下面是一个示例，用于在列(在本例中为“C”列)中的值突然发生变化时插入空行：

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")更改为您想要触发行插入的任何值，当然，还可以更改要应用到哪一列。