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

我正在使用下面的代码来复制excel中的一行以及当用户单击A列中的某个单元格时所有内容。

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 

然后公式中的单元格引用将增加 。