如何让Excel VBA函数保留输入参数中的换行符并正确返回结果？

这个问题我碰到过好几次，核心是Excel对换行符的识别逻辑和单元格显示设置的配合问题。你的基础函数其实已经在传递换行符了，但之所以显示成无换行的内容，需要做两个关键处理：

1. 统一转换换行符类型，确保Excel能识别 #

单元格中手动输入的换行（Alt+Enter）对应的是vbLf（换行符），但有时候输入的内容可能带的是vbCr（回车符）或者vbCrLf（回车+换行），Excel对这些字符的显示支持不一致。你可以修改函数，把所有类型的换行符统一转换成Excel能识别的vbLf：

Function parseTemplate(template As String) As String
    ' 统一转换所有换行/回车符为Excel单元格识别的换行符
    Dim processedStr As String
    processedStr = Replace(template, vbCrLf, vbLf) ' 先替换回车+换行组合
    processedStr = Replace(processedStr, vbCr, vbLf) ' 再替换单独的回车符
    parseTemplate = processedStr
End Function

2. 开启目标单元格的自动换行功能 #

就算字符串里包含正确的换行符，Excel默认也不会自动换行显示，需要手动开启这个设置：

• 选中D1单元格
• 右键点击选择「设置单元格格式」
• 在弹出的窗口中切换到「对齐」选项卡，勾选自动换行

完成这两步后，D1单元格就会正确显示带换行的内容了。

补充说明：Excel的自定义函数有个限制——不能直接修改单元格的格式属性，所以没法在函数里自动开启自动换行，只能手动设置或者用单独的宏批量处理单元格格式。

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