用于将单元格从sheet_A复制到sheet_B的VBA代码

Sub CopyCells()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("sheet_A")
    Set targetSheet = ThisWorkbook.Sheets("sheet_B")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:B10") ' 例如复制A1到B10范围的单元格
    Set targetRange = targetSheet.Range("A1")
    
    ' 复制单元格
    sourceRange.Copy targetRange
End Sub