首页 文章

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

提问于
浏览 次
0

当用户点击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

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

excel formula

1 回答

  • 1

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

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

    然后公式内的单元格引用将 increment .

    回复于

相关问题