Question

下面是我现在使用的vba代码。编辑底部的详细信息。

Sub AddBlankRows()
'
Dim iRow As Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub

上面的vba代码我在Stackoverflows的一个问题中找到了（谷歌搜索）有人提出的问题，并且它符合我的目的。但是我无法找到它来提供有关它产生的问题的信息。

我现在正在使用它并且效果很好。但是我需要添加更多行。所以我必须手动插入行，因为我需要它们。我想让vba代码为我做。而不是在每个分组的单元格后添加1行。我需要添加3行。有人可以帮我编辑上面的宏，让它给我3行而不是1行。

这是我的第一篇文章，并提前感谢所有人。 GraceSarah

Answer 1

这将是修改现有公式以增加2行

的最小侵入性方法

Sub AddBlankRows()
'
Dim iRow As Integer
Dim x as Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    For x = 1 To 3
        Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    Next x
    iRow = iRow + 4
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub

在现有的vba代码中添加3行

1 个答案: