excel - Excel-VBA：在下面插入行并将新行作为范围

Question

如何在范围下方插入新行，然后获取对该新行的引用以便填充它？

Dim newRow As Range
newRow = row.Offset(1).EntireRow.Insert

导致对象变量或宽度块变量未设置错误，但插入了新行。然而，我似乎无法得到它的参考。

第二个问题是，在上面我是否可以迭代范围并将行插入该范围。插入会影响迭代吗？

Answer 1

我之前的陈述是不正确的，因为我误解了你想要做的事情。下面是一个遍历范围的示例，在满足条件后，将在循环中的当前行下方插入一行。然后需要一个布尔值来跳过插入的行。

Sub InsertAfterLastRow()
    Dim Rng As Range
    Set Rng = Range("A1:B5") 'Arbritrary
    Dim LastRow As Long
    Dim InsertRow As Long
    Dim Inserted As Boolean
    Dim NewRow As Range

    Inserted = False

    For Each Row In Rng.Rows
        If Inserted = False Then
            If Row.Cells(1, 1).Value = "Yes" Then
                    Rows(Row.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                    Set NewRow = Range(Row.Row + 1 & ":" & Row.Row + 1)
                    NewRow.Cells(1, 1).Value = "Inserted"
                    Inserted = True
            Else
                Row.Cells(1, 1).Value = "No"
            End If
        Else
            'Avoid a double insert, skipping a row
            Inserted = False
        End If
    Next
End Sub

Answer 2

我的天啊。愚蠢的 VBA 语法。;)

Set newRow = Rows(rowNumber + 1 & ":" & rowNumber + 1)

作品。重要的部分是 Set 关键字。

Answer 3

我一直在与一个类似的问题作斗争，希望在参考范围（命名范围）下方的某个点添加或删除可变数量的行而不影响命名范围。首先，我确定要添加（或删除）多少行变量保存行数 = addR

addR = 2 ' you'd use some logic to derive the value of addR Rows(Range("OutputBlock").Row + 1).EntireRow.Resize(addR).insert 输出块是我要在其中添加行的命名范围。