Excel VBA 将值范围复制到另一个范围 - VBA

在编写 Excel VBA 程序时，有时需要将一个值范围复制到另一个范围。本篇文章将介绍如何使用 Excel VBA 程序实现该功能，并提供一些代码片段及示例来帮助程序员更方便地理解。

复制整个值范围

如果需要将一个完整的值范围（包括单元格格式）复制到另一个范围，可以使用 Range.Copy 函数。

Sub CopyRange()
    ' 将 A1:D10 的值范围复制到 E1:H10
    Range("A1:D10").Copy Destination:=Range("E1:H10")
End Sub

以上代码将会将 A1:D10 的值范围复制到 E1:H10。

只复制值

如果需要只复制值，可以使用 Range.Value 属性和 Range.Value2 属性。

Sub CopyValues()
    ' 将 A1:D10 的值复制到 E1:H10
    Range("E1:H10").Value = Range("A1:D10").Value
End Sub

以上代码将会将 A1:D10 的值范围复制到 E1:H10。如果需要将 A1:D10 的公式复制到 E1:H10，只需要将 Range.Value 改为 Range.Formula 即可。

值范围大小不同的情况

如果需要将值范围大小不同的值范围复制到另一个范围，可以使用 Range.Resize 函数。

以下示例将会将 A1:C2 的值范围复制到 E1:F3。

Sub CopyValuesWithDifferentSize()
    ' 将 A1:C2 的值复制到 E1:F3
    Range("E1").Resize(2, 2).Value = Range("A1:C2").Value
End Sub

处理不同工作簿之间的值范围复制

如果需要将一个工作簿中的值范围复制到另一个工作簿中，可以使用 Workbook.Sheet.Range 函数。

以下示例将会将 Book1 中的 A1:D10 的值范围复制到 Book2 中的 E1:H10。

Sub CopyRangeBetweenDifferentWorkbook()
    ' 将 Book1 中的 A1:D10 的值范围复制到 Book2 中的 E1:H10
    Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:D10").Copy _
        Destination:=Workbooks("Book2.xlsx").Sheets("Sheet1").Range("E1:H10")
End Sub

结语

本篇文章介绍了如何使用 Excel VBA 程序将值范围复制到另一个范围的方法，并提供了相关的代码片段及示例。希望能帮助到大家。