如何复制粘贴所有格式和值而不使用vb a中的select

Posted 2021-04-15

如何在不使用select的情况下复制范围。我需要一切，不仅仅是价值观。目前庞大的代码：

Function Template(x As Integer)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range("E1:H5").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Sheets("Sheet2").Cells(1, x).Select
    ActiveSheet.Paste
End Function

谢谢！！

答案

您可以使用Range.Copy（https://msdn.microsoft.com/en-us/library/office/ff837760.aspx）复制范围而不进行选择，例如......

Range("A1").Copy Range("A2")

将从A1到A2的所有内容（包括值和格式）复制。

另一答案

Function Template(x As Integer)
    Dim sourceRange As Excel.Range
    Dim destinationRange As Excel.Range

    Set sourceRange = Sheets("Sheet1").Range("E1:H5")
    Call sourceRange.Copy


    Set destinationRange = Sheets("Sheet2").Cells(1, x)
    Call destinationRange.PasteSpecial(xlPasteAll)

End Function