合并单元格ExcelVBA代码

以下是一个示例的VBA代码，用于合并选定的单元格：

Sub MergeCells()
    ' 获取选定的单元格范围
    Dim rng As Range
    Set rng = Selection
    
    ' 合并单元格
    rng.Merge
End Sub

要使用此代码，请按下Alt + F11打开VBA编辑器，在其中插入一个新的模块，并将上述代码复制粘贴到模块中。然后，您可以在Excel中选择要合并的单元格，然后运行此VBA宏（按下Alt + F8，选择“MergeCells”，然后点击“运行”按钮），以将选定的单元格合并为一个单元格。