在VBA中使用单元格/行列引用复制和粘贴数据

Sub CopyCellData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源单元格范围
    Set sourceRange = Range("A1")
    
    ' 设置目标单元格范围
    Set destinationRange = Range("B1")
    
    ' 复制源单元格数据到目标单元格
    sourceRange.Copy destinationRange
End Sub

Sub CopyRowData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源行范围
    Set sourceRange = Range("1:1")
    
    ' 设置目标行范围
    Set destinationRange = Range("2:2")
    
    ' 复制源行数据到目标行
    sourceRange.Copy destinationRange
End Sub

Sub CopyColumnData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源列范围
    Set sourceRange = Range("A:A")
    
    ' 设置目标列范围
    Set destinationRange = Range("B:B")
    
    ' 复制源列数据到目标列
    sourceRange.Copy destinationRange
End Sub