将宏复制并粘贴到特定的列范围

Question

我在 Excel 中创建了一个宏，用于在我的 sheet 中复制一行并将该行插入到用户所选行上方的另一个 sheet 中。宏如下并正常运行：

Sub addTestProductRow()
    Sheets("Macro templates").Range("B2:J2").Copy
    Selection.Insert Shift:=xlDown
End Sub

但是，我希望添加到这个宏中，使其只插入列 B 到 J，而不管用户选择了哪个单元格。我仍然希望它插入用户选择的行上方，就在指定的列范围内。

Answer 1

这应该可以满足您的要求：

Sub addTestProductRow()
    Dim t As Long
    t = Selection.Row
    Rows(t).Insert
    Sheets("Macro templates").Range("B2:J2").Copy
    Range("B" & t).PasteSpecial

End Sub

将宏复制并粘贴到特定的列范围

Copy and Paste Macro to specific Column Ranges

excel

vba

copy

insert