Question

我目前正在开发一个excel-VBA宏，它将选择一个模板，复制它，在所选单元格上方创建额外的行，然后将模板粘贴到添加的额外行中。到目前为止，我的代码看起来像这样：

Sub Insert_Another_Good()
    Dim i As Integer
    Dim j As Integer
    ActiveCell.EntireRow.Select
    i = 8
    For j = 1 To i
        Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
    Next: Macro2
    Range("A25:P32").Copy
    Set rng = Range(Selection.Address)
    ActiveSheet.Paste
End Sub

Sub Macro2() 'still part of the same sub'
    Range("A25:P32").Copy
    Set rng = Range(Selection.Address)
    ActiveSheet.Paste
End Sub

这适用于复制模板并将其粘贴到新行中，但它只从第一列A开始粘贴。你能不能帮我把它粘贴到模板中让我们说Q列？（总线仍然与新发布的8行中的第一行相同）

希望你理解我的奇怪问题！并提前感谢您的帮助！

Answer 1

如何不是插入空行而是插入复制的范围并将所有内容向下移动，如下所示：

Range("A25:P32").Copy
Set Rng = Range(Selection.Address)
Selection.Insert Shift:=xlDown

协助VBA宏将预制模板移动/插入新范围

1 个答案: