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

Question

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

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

Private Sub CommandButton1_Click()

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

End Sub

Answer 1

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

def f(arr, cond_arr):
    indices = np.argwhere(cond_arr)
    min = np.amin(indices, axis = 0) #get first row, col meeting cond
    max = np.amax(indices, axis = 0) #get last row, col meeting cond
    return arr[min[0]:max[0] + 1, min[1] : max[1] + 1]

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