如何用VBA实现合并单元格中文本的自动调整？

Excel原生的Autofit方法无法直接适配合并单元格的内容，因为它仅基于单个单元格的尺寸计算。下面是通过临时单元格过渡的可行方案，以你提到的C2:D2合并单元格为例：

核心思路 #

1. 创建一个临时单元格，复制合并单元格的内容与格式
2. 将临时单元格的列宽设为合并列的总宽度，执行Autofit获取适配后的总宽度
3. 按原有列宽比例，将适配后的总宽度分配回合并的各列
4. 清理临时单元格，避免干扰原有数据

VBA代码示例 #

Sub AutoFitMergedCell()
    Dim mergedRange As Range
    Dim tempCell As Range
    Dim totalOriginalWidth As Double
    Dim fittedWidth As Double
    Dim colRatio As Double
    
    ' 定义目标合并单元格
    Set mergedRange = ActiveSheet.Range("C2:D2")
    
    ' 在工作表空白处创建临时单元格（避免覆盖现有数据）
    Set tempCell = ActiveSheet.Cells(Rows.Count, Columns.Count).End(xlUp).Offset(1, 0)
    
    ' 复制合并单元格的内容、格式到临时单元格
    mergedRange.Copy
    tempCell.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    tempCell.PasteSpecial Paste:=xlPasteValues
    
    ' 计算合并列的总原始宽度
    totalOriginalWidth = mergedRange.Columns(1).ColumnWidth + mergedRange.Columns(2).ColumnWidth
    ' 设置临时单元格列宽为合并列总宽度
    tempCell.ColumnWidth = totalOriginalWidth
    
    ' 自动调整临时单元格列宽，得到适配内容的总宽度
    tempCell.EntireColumn.AutoFit
    fittedWidth = tempCell.ColumnWidth
    
    ' 按原始列宽比例分配适配后的宽度到合并列
    colRatio = mergedRange.Columns(1).ColumnWidth / totalOriginalWidth
    mergedRange.Columns(1).ColumnWidth = fittedWidth * colRatio
    mergedRange.Columns(2).ColumnWidth = fittedWidth * (1 - colRatio)
    
    ' 清理临时单元格
    tempCell.Clear
End Sub

扩展说明 #

• 如果合并的列数超过2列，只需修改代码中计算总宽度和比例分配的部分，通过循环遍历合并列即可
• 若需要调整合并单元格的行高，逻辑类似：将临时单元格的列宽设为合并列总宽度，执行tempCell.EntireRow.AutoFit，再将行高应用到合并单元格所在行
• 若工作表处于保护状态，需先添加ActiveSheet.Unprotect（如有密码需传入参数），执行完代码后再恢复保护ActiveSheet.Protect

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