从一张纸复印范围并插入另一张纸

Question

我只需要从表格“Header”中从A1复制到Q9，并将这样的范围插入到相同范围内的“Master_Sheet”表中。 我说插入是因为在调用上面的宏时，范围中有数据，我不必取消内容。 我尝试过这些我已经复制过的东西，但它会将数据复制到现有的一次，而我需要用格式化插入它们。 显而易见，我不知道VBA。

Sub Main()
    Sheets("Master_Sheet").Range("A1:Q9").Value = Sheets("Header").Range("A1:Q9").Value
End Sub

非常感谢您的帮助。

Answer 1

您的代码仅复制值而不是格式化。 如果你想复制带格式的数据，请尝试以下代码，它应该工作

     Sub Main()
        Dim lrow As Integer

        With Sheets("Header")
        lrow = Sheets("Master_Sheet").Range("A1").CurrentRegion.Rows.Count
        .Range("A1:Q9").Copy Sheets("Master_Sheet").Range("A" & lrow + 1) ' - for cut
        End With

    End Sub

或者如果你插入单元格的乞讨（A1 - 在主表格中）

使用以下代码

Sub Macro3()
    Sheets("Header").Range("A1:Q9").Copy
    Sheets("Master_Sheet").Select
    Range("A1").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

上面的代码从标题表复制A1：Q9中的数据，并粘贴在主表A列的末尾