macros根据列值插入空白行

我试图创build一个基于单元格值插入空白行的macros失败。

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

Answer 1

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

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