使用VBA在工作表之间复制单元格

Sub CopyCellsBetweenSheets()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set destinationSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:D10")
    Set destinationRange = destinationSheet.Range("A1:D10")
    
    ' 复制单元格
    sourceRange.Copy Destination:=destinationRange
End Sub

If ThisWorkbook.Sheets("Sheet2").Name = "Sheet2" Then
    ' 执行复制操作
Else
    MsgBox "目标工作表不存在"
End If

If sourceRange.Rows.Count = destinationRange.Rows.Count And _
   sourceRange.Columns.Count = destinationRange.Columns.Count Then
    ' 执行复制操作
Else
    MsgBox "源范围和目标范围大小不匹配"
End If

ThisWorkbook.Unprotect Password:="your_password"
' 执行复制操作
ThisWorkbook.Protect Password:="your_password"