在Excel中将某个特定单元格从一个工作表复制到另一个工作表的VBA是什么？

Sub CopyCell()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceCell As Range
    Dim destinationCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set destinationSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源单元格和目标单元格
    Set sourceCell = sourceSheet.Range("A1") ' 源单元格的地址
    Set destinationCell = destinationSheet.Range("B2") ' 目标单元格的地址
    
    ' 复制源单元格的值到目标单元格
    destinationCell.Value = sourceCell.Value
End Sub