使用Excel中的VBA将2个单元格的内容合并到一个单元格中

Sub MergeCells()
    Dim cell1 As Range
    Dim cell2 As Range
    Dim newCell As Range
    Dim cell1Value As String
    Dim cell2Value As String
    
    ' 设置要合并的两个单元格
    Set cell1 = Range("A1")
    Set cell2 = Range("B1")
    
    ' 获取两个单元格的值
    cell1Value = cell1.Value
    cell2Value = cell2.Value
    
    ' 合并两个单元格的值
    cell1.Value = cell1Value & cell2Value
    
    ' 删除第二个单元格的内容
    cell2.Value = ""
End Sub