在上面添加一个新行，同时为新行的第一个和最后一个单元格添加后缀

Question

需要创建一个宏，将整行复制到现有行之上，然后取消选择复制范围，并在新行的第一个和最后一个单元格的末尾添加一个“A”。

我已经在第一个单元格中添加了“A”，但也无法弄清楚如何为最后一个单元格添加“A”。见下面的代码

Private Sub CommandButton1_Click()

    InsertCopy
    ActiveCell.Select
    Application.CutCopyMode = False
    ActiveCell.Value = ActiveCell.Value & "A"

End Sub

Answer 1

复制/插入后，您的活动单元格和选择应位于新插入的行上。您需要隔离该行中使用的范围以编辑第一个和最后一个单元格。

...
Application.CutCopyMode = False
dim nrw as long
nrw = activecell.row
with range(cells(nrw, "A"), cells(nrw, columns.count).end(xltoleft))
    .cells(1, 1) = .cells(1, 1).value & "A"
    .cells(1, .columns.count) = .cells(1, .columns.count).value & "A"
end with

您还应该提供父工作表参考。