vba - 如何在 Excel VBA 中使用命名单元格的行号

Question

我有一个工作表，我想在其中使用按钮添加行。我在多行上有多个按钮，每个按钮都应该在它们的位置添加一行。

问题是，每当添加新行时，我要添加行的位置都会发生变化。因此，我命名了要为每个按钮添加新行的单元格。

我无法获取单元格的行号，因此我可以选择添加新行的位置。自动取款机我试过这个:

Sub Button2_Click()

Dim RowNum As Variant

Set RowNum = WorksheetFunction.Index(cell, 1, 0)
Rows(RowNum & ":" & RowNum).Insert Shift:=xlDown
Rows(RowNum - 1 & ":" & RowNum - 1).Copy Range("A" & RowNum)
Range("D" & 7, "L" & 7).ClearContents

End Sub

其中单元格是我要添加新行的单元格。

我无法使用索引函数将行作为数字返回。当我在调试中将鼠标悬停在“单元格”上时，它显示单元格=空。

希望这很清楚，因为您可能会告诉我对这些东西不是很有经验。

谢谢 :)

Answer 1

当您使用 Set将变体分配给返回的 Application.Index ，您实际上是在设置一个范围。您可以将其简化为仅返回单元格的行号，但您必须引用命名范围，就好像它是 Range object 中的单元格地址一样。 .

Sub Button2_Click()
    Dim RowNum As Long

    With ActiveSheet
        RowNum = .Range("cell").Row
        .Rows(RowNum).Insert Shift:=xlDown
        .Rows(RowNum - 1).Copy .Range("A" & RowNum)
        .Range("D" & 7, "L" & 7).ClearContents   'not really sure where the 7 comes in here
    End With
End Sub