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 

公式会增量内，则单元格引用。