Excel VBA实现逗号分隔姓名自动换行问题求助

针对合并单元格内逗号分隔姓名无法自动换行的问题，可通过以下修正后的VBA代码解决：

Dim rng As Range
Set rng = Range("E11:N13")

' 合并单元格并设置基础格式
With rng
    .Merge
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
End With

' 处理日期单元格
Range("E8:G8").Merge
Range("E8").FormulaR1C1 = "=TODAY()"

' 替换逗号为换行符并适配行高
If Not IsEmpty(rng.Value) And VarType(rng.Value) = vbString Then
    If InStr(rng.Value, ",") > 0 Then
        ' 使用Windows下Excel识别的标准换行符组合
        rng.Value = Replace(rng.Value, ",", "," & vbNewLine)
        ' 重新确认自动换行属性，确保格式生效
        rng.WrapText = True
        ' 自动调整行高适配内容
        rng.EntireRow.AutoFit
    End If
End If

关键修改说明 #

• 标准换行符：使用vbNewLine（对应Chr(13)+Chr(10)），这是Windows环境下Excel能正确识别的换行组合，单独的vbLf或Chr(10)无法稳定触发换行。
• 保留分隔符：将替换逻辑改为, " & vbNewLine，既保留姓名间的逗号分隔，又实现换行效果。
• 自适应行高：替换固定行高为rng.EntireRow.AutoFit，自动匹配内容高度，适配不同长度的姓名。
• 强制格式生效：赋值内容后重新设置WrapText = True，确保单元格格式正确应用到新内容。

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