vba 复制合并单元格

以下是 VBA 代码示例，可以将两个单元格合并，然后将其复制到另一个单元格中：

Sub MergeAndCopy()
    '定义变量
    Dim cell1 As Range
    Dim cell2 As Range
    Dim mergeRange As Range
    
    '设置单元格范围
    Set cell1 = Range("A1")
    Set cell2 = Range("B1")
    
    '合并单元格
    Set mergeRange = Range(cell1, cell2)
    mergeRange.Merge
    
    '复制合并后的单元格
    mergeRange.Copy Range("C1")
End Sub

在此示例中，单元格 A1 和 B1 将合并成一个单元格。然后，将复制合并后的单元格，并将其粘贴到单元格 C1 中。你可以根据自己的需求修改代码中的单元格范围。