Excel使用VBA宏调整合并单元格自适应文本时消除上下多余空白问题

问题原因 #

你当前代码出现多余空白的核心原因是：执行EntireRow.AutoFit时，会统计整行所有列（含D列到M列中你不需要的空白列）的内容高度进行适配，恢复合并单元格后Excel的行高计算冗余进一步放大了空白量，同时多余的列宽自适应操作也会改变文本换行逻辑，加剧空白问题。

修正后的VBA代码 #

Sub Adjust_Cells_For_Text()
    ' 关闭屏幕更新减少卡顿闪烁
    Application.ScreenUpdating = False
    
    Dim targetRng As Range, i As Integer
    Set targetRng = Range("D33:F42") ' 仅操作需要合并的目标列范围
    
    ' 先取消目标区域的合并，不要涉及后面无关的G到M列
    targetRng.UnMerge
    ' 仅设置目标区域自动换行，无关列不参与
    targetRng.WrapText = True
    ' 仅针对目标区域的行做自适应，避免其他列干扰
    targetRng.EntireRow.AutoFit
    ' 不需要调整列宽可直接删除下一行，避免列宽变动影响换行
    ' targetRng.EntireColumn.AutoFit
    
    ' 逐行恢复合并
    For i = 33 To 42
        Range("D" & i & ":F" & i).Merge
    Next i
    
    Application.ScreenUpdating = True
End Sub

补充调整说明 #

• 如果需要切换销售人员后自动触发适配，可在工作表的Worksheet_Change事件中添加判断，当下拉列表所在单元格内容变动时调用Adjust_Cells_For_Text即可
• 若适配后仍有少量多余空白，可在targetRng.EntireRow.AutoFit后添加代码逐行微调行高，例如：

  For i = 33 To 42
      Rows(i).RowHeight = Rows(i).RowHeight - 4 ' 减去的数值根据实际字体大小调整
  Next i
  

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