根据列值插入空白行的宏

【问题标题】：macro to insert blank rows based on column value根据列值插入空白行的宏
【发布时间】：2015-07-18 00:14:58
【问题描述】：

我没有成功尝试创建一个宏来根据单元格值插入空白行。

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

【问题讨论】：

【解决方案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

【讨论】：

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

【讨论】：