如何实现指定区域内的单元格合并居中

以下是VBA代码实现：

Sub MergeAndCenterRange()
    Dim startRow As Integer
    startRow = 2 '指定区域的起始行
    
    Dim endRow As Integer
    endRow = 372 '指定区域的结束行
    
    Dim startCol As Integer
    startCol = 2 '指定区域的起始列
    
    Dim endCol As Integer
    endCol = 10 '指定区域的结束列
    
    Range(Cells(startRow, startCol), Cells(endRow, endCol)).Merge '合并指定区域
    
    With Range(Cells(startRow, startCol), Cells(endRow, endCol))
        .HorizontalAlignment = xlCenter '水平居中
        .VerticalAlignment = xlCenter '垂直居中
    End With
    
    MsgBox "合并居中完成！"
End Sub

你可以将这段代码复制到一个模块中，然后在Excel中运行它。这段代码将会合并居中指定区域（从B2到J372），并且会提示合并居中完成。你可以根据需要修改代码中的起始行、结束行、起始列、结束列，以适应不同的需求。