Excel VBA -如果另一个单元格包含数据，则从工作表复制单元格

Sub CopyCellIfAnotherCellContainsData()
    Dim sourceCell As Range
    Dim destinationCell As Range
    
    ' 设置源单元格和目标单元格
    Set sourceCell = Worksheets("Sheet1").Range("A1")
    Set destinationCell = Worksheets("Sheet2").Range("B1")
    
    ' 检查源单元格是否包含数据
    If sourceCell.Value <> "" Then
        ' 复制源单元格的值到目标单元格
        destinationCell.Value = sourceCell.Value
    End If
End Sub