Excel：复制整行和内容但更改单元格引用？

Question

当用户点击A列中的某个单元格时，我使用以下代码复制excel中的行及其所有内容。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayAlerts = False
If Target.Row > 150 And Target.Column = Range("A1").Column Then
  On Error Resume Next
    With ActiveCell
        .EntireRow.Copy
        .EntireRow.Insert
    End With
    Application.CutCopyMode = False
 End If

这会复制上面的行及其所有内容，但是在B列的单元格中，我有一个像这样的公式

='[NewSupplierSet-Up.xls]New Supplier Set-Up'!$B17

我想要的是这个公式中的单元格引用每次复制行时增加1？这样下一行就是

='[NewSupplierSet-Up.xls]New Supplier Set-Up'!$B18

如果有办法，有人可以告诉我吗？ 感谢

Answer 1

复制的行可以插入 活动单元格。

With ActiveCell
    .EntireRow.Copy
    .EntireRow.Offset(1, 0).Insert
End with

然后公式内的单元格引用递增。