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

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

我已经到了在第一个单元格中添加“A”的地步，但也无法计算如何在最后一个单元格中添加“A”。请参阅下面的代码

Private Sub CommandButton1_Click()

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

End Sub

---

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

...
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

---

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

非常感谢。所有这些对我来说都是新鲜事。这非常有效。我感谢你的帮助和时间。