Question

我正在尝试编写用于在工作表“ Sheet3”中插入新行的代码，其中第一列的值是我存储为Range的值。

我已经制定了一个公式，用于识别活动表中的值，如下所示>

Dim cellTaxa As Range
Set cellTaxa = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, -2)
End Sub

基本上，上述公式将一个值存储在一个单元格中，该单元格是我单击的按钮向下一个单元格，而从我单击的按钮开始剩下两个单元格。

我接下来要做的是在工作表3中插入一个新行，其中第一列值为cellTaxa。

我找不到任何适用于我的结构的东西。任何帮助或提示表示赞赏。谢谢！

Answer 1

Option Explicit

Public Sub yoursub()

    Dim cellTaxa As Range
    Set cellTaxa = Sheets("Sheet1").Range("G3") 'replace with your range
    'Would be even better to not use range for a single cell
    ' E.g.: Set cellTaxa = Sheets("Sheet1").Cells(3,7) OR Cells(3,"G")
    'same format can be applied for the .pastespecial part

    Sheets("Sheet3").Range("A1").EntireRow.Insert 'adds empty row at "A1"
    cellTaxa.Copy
    Sheets("Sheet3").Range("A1").PasteSpecial 'pastes CellTaxa into the newly created row

End Sub

在其他工作表中插入新行并粘贴值

1 个答案: