Excel VBA：设置单元格区域垂直对齐时如何保留缩进格式？

确实碰到过Excel这个烦人的小坑——当你给混合了有缩进和无缩进的单元格区域设置垂直对齐时，不管是手动操作还是直接用Range.VerticalAlignment = xlCenter，Excel总会莫名其妙把缩进清掉。要解决这个问题，核心思路就是先把每个单元格的缩进级别存下来，设置完对齐后再恢复回去，下面给你两种实用的实现方案：

方案一：逐个单元格处理（简单直接，适合中小区域） #

这种方法逻辑清晰，遍历目标区域的每个单元格，先保存缩进，再设置对齐，最后恢复缩进：

Sub SetVerticalAlignKeepIndent()
    Dim targetRange As Range
    Dim cell As Range
    
    ' 替换成你需要处理的区域，比如Range("A1:D20")
    Set targetRange = Selection
    
    For Each cell In targetRange
        ' 保存当前单元格的缩进级别
        Dim originalIndent As Integer
        originalIndent = cell.IndentLevel
        
        ' 设置垂直居中对齐
        cell.VerticalAlignment = xlCenter
        
        ' 恢复原来的缩进级别
        cell.IndentLevel = originalIndent
    Next cell
End Sub

优缺点 #

• 优点：代码简单易懂，不需要复杂的数组操作，日常处理几十到几百个单元格完全够用。
• 缺点：如果是超大区域（比如上万单元格），遍历会稍微慢一点，但对于绝大多数场景来说影响可以忽略。

方案二：数组批量处理（高效快捷，适合大区域） #

如果需要处理的单元格数量很多，用数组先批量保存缩进，再批量恢复会更高效：

Sub SetVerticalAlignKeepIndentFast()
    Dim targetRange As Range
    Dim indentArray() As Integer
    Dim r As Long, c As Long
    
    ' 替换为你的目标区域
    Set targetRange = Selection
    
    ' 初始化数组，匹配目标区域的行列数
    ReDim indentArray(1 To targetRange.Rows.Count, 1 To targetRange.Columns.Count)
    
    ' 第一步：把所有单元格的缩进级别存入数组
    For r = 1 To targetRange.Rows.Count
        For c = 1 To targetRange.Columns.Count
            indentArray(r, c) = targetRange.Cells(r, c).IndentLevel
        Next c
    Next r
    
    ' 第二步：批量设置垂直对齐（这一步比逐个单元格设置快很多）
    targetRange.VerticalAlignment = xlCenter
    
    ' 第三步：从数组中批量恢复缩进级别
    For r = 1 To targetRange.Rows.Count
        For c = 1 To targetRange.Columns.Count
            targetRange.Cells(r, c).IndentLevel = indentArray(r, c)
        Next c
    Next r
End Sub

优缺点 #

• 优点：把重复的单元格操作改成数组读写，效率提升明显，处理大区域时优势很大。
• 缺点：代码比第一种稍复杂一点，但逻辑依然清晰。

额外处理：包含合并单元格的场景 #

如果你的目标区域有合并单元格，需要额外判断，避免重复设置合并区域的缩进（因为合并单元格的缩进只在左上角单元格生效）：

Sub SetVerticalAlignKeepIndentWithMerged()
    Dim targetRange As Range
    Dim cell As Range
    
    Set targetRange = Selection
    
    For Each cell In targetRange
        ' 只处理合并区域的第一个单元格
        If cell.MergeCells Then
            If cell.Address = cell.MergeArea.Cells(1, 1).Address Then
                Dim originalIndent As Integer
                originalIndent = cell.IndentLevel
                cell.VerticalAlignment = xlCenter
                cell.IndentLevel = originalIndent
            End If
        Else
            Dim originalIndentNoMerge As Integer
            originalIndentNoMerge = cell.IndentLevel
            cell.VerticalAlignment = xlCenter
            cell.IndentLevel = originalIndentNoMerge
        End If
    Next cell
End Sub

总的来说，不管用哪种方法，核心都是先保存缩进，再修改对齐，最后恢复缩进，完美避开Excel的这个小bug。

内容的提问来源于stack exchange，提问作者ChrisB