如果满足特定要求，则在循环中插入额外行

Question

对于一般的编程，特别是在VBA中，这是一个非常新的编程。我正在尝试构建一个代码，如果单元格中满足特定要求，即如果列B中的单元格为空，则添加一个空行。我的数据输入大小各不相同，所以我想不能定义一个特定的范围。

数据如下所示：

​

​

到目前为止，我的代码看起来是这样的，但是它只在b列为空时在顶部添加空行。

For i = 1 To k
  If out.Range("B16").Cells(i, 1) = "" Then
   out.Rows(i).Insert shift:=xlShiftUp
End If
Next i 

我的代码基本上做的是，它在ATM机顶部添加了一堆线，因此它将表向下移动6-7行。

Answer 1

假设表数据如下：

​

如果B列中的单元格为空，则需要插入整行。

因此，该表如下所示：

​

​

代码：

Sub test123()
Set x = Range("B16")
Do Until x.Offset(1, 0).End(xlToRight).Value = "" And x.Offset(1, 0).End(xlToLeft).Value = ""
If x.Value = "" Then
If x.End(xlToRight).Value <> "" Or x.End(xlToLeft).Value <> "" Then
x.EntireRow.Insert
'x.Offset(-1, 0).Interior.Color = vbGreen
End If
End If
Set x = x.Offset(1, 0)
Loop
End Sub

插入整行的条件是：

1. 如果B列中有空单元格，则此空白单元格左端或右端的
2. 为value。

如果此空白单元格的左端和右端没有值，则代码将停止

如果我没弄错的话，那就是你的意思。