Excel VBA循环以根据单元格值插入行

Question

首先是数据。

A          B
Type 1     5


Type 2     7





Type 3     9

etc.

我需要创建一个循环，从B1开始并根据B的单元格值插入多个行。

我找到了下面的代码，但它没有循环，我需要它检查的下一个单元格是第一个单元格（5）+ 1的结果，以使其正确。

**

• 结果应该是：

**

'\b((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4}\b'

提前致谢！

Answer 1

我首先搞砸了这个问题，但是我找到了答案。

请参阅下文。

Sub InsertRowsIf()
Dim lr As Long, R As Range, i As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
Set R = Range("B1", "B" & lr)
Application.ScreenUpdating = False
For i = R.Rows.Count To 1 Step -1
If IsNumeric(R.Cells(i, 1).Value) And Not IsEmpty(R.Cells(i, 1)) Then
    R.Cells(i, 1).Offset(1, 0).Resize(R.Cells(i, 1).Value).EntireRow.Insert
End If
Next i

Application.ScreenUpdating = True 结束子