VBA宏 合并单元格居中

以下是VBA宏合并单元格并居中的代码：

Sub mergeAndCenter()
    Dim x As Long, y As Integer
    x = Selection.Rows.Count
    y = Selection.Columns.Count
    a = Selection.Row
    b = Selection.Column
    Application.DisplayAlerts = False
    For i = 1 To x
        For j = 1 To y - 1
            Cells(a + i - 1, b) = Cells(a + i - 1, b) & Cells(a + i - 1, b + j)
        Next
        Cells(a + i - 1, b).Resize(1, y).Select
        Selection.Merge
        Selection.HorizontalAlignment = xlHAlignCenter
        Selection.VerticalAlignment = xlHAlignCenter
    Next
    Application.DisplayAlerts = True
End Sub

这个宏可以将选定区域内的所有单元格合并，并将合并后的单元格居中对齐。

相关问题

vba多单元格合并，单元格内容居中

您可以使用 VBA 中的 Range.Merge 方法来合并多个单元格，使用 Range.HorizontalAlignment 属性将合并后的单元格内容居中。

以下是示例代码：

Sub MergeCells()
Range("A1:B2").Merge
Range("A1:B2").HorizontalAlignment = xlCenter
End Sub

这将合并 A1:B2 区域的单元格，并将其内容居中。

vba指定单元格合并，内容居中，布局

可以使用以下代码实现：

Range("A1:B2").Merge
Range("A1:B2").HorizontalAlignment = xlCenter
Range("A1:B2").VerticalAlignment = xlCenter

这段代码将单元格 A1:B2 合并，并将合并后的单元格内容居中显示。