如何在Excel VBA中复制特定范围值？

Sub CopyRangeValues()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 定义源范围
    Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
    
    ' 定义目标范围
    Set destinationRange = ThisWorkbook.Worksheets("Sheet2").Range("B1:B10")
    
    ' 复制源范围的值到目标范围
    sourceRange.Copy destinationRange
End Sub

' 仅复制值和格式
sourceRange.Copy destinationRange, xlPasteValuesAndNumberFormats

' 仅复制公式
sourceRange.Copy destinationRange, xlPasteFormulas

' 仅复制格式
sourceRange.Copy destinationRange, xlPasteFormats