如何避免VBA用户窗体文本框提取文本时产生额外换行符

问题原因 #

用户窗体多行文本框里的换行符是回车符（vbCr），而Excel单元格默认识别的换行是换行符（vbLf）。直接把文本框内容赋值给单元格时，Excel会自动将vbCr转换为vbCrLf（回车+换行），导致显示时出现双换行效果。

代码解决方案 #

无需修改文本框属性，直接在赋值时替换多余的回车符即可，示例代码如下：

Sub CommandButton1_Click()
    ' 将文本框中的回车符替换为Excel单元格的换行符
    ActiveSheet.Range("A1").Value = Replace(TextBox1.Text, vbCr, vbLf)
    ' 也可以用Excel自带的换行常量vbNewLine，效果一致
    ' ActiveSheet.Range("A1").Value = Replace(TextBox1.Text, vbCr, vbNewLine)
End Sub

注意：要用.Value而非.Text赋值——.Text是单元格的显示文本，.Value才是单元格存储的实际内容，能保证格式正确应用。

特殊场景处理 #

如果粘贴的内容同时包含vbCr和vbCrLf，可以通过双重替换统一格式：

Sub CommandButton1_Click()
    Dim originalText As String
    originalText = TextBox1.Text
    ' 先统一替换回车+换行，再处理剩余的单一回车
    originalText = Replace(originalText, vbCrLf, vbLf)
    originalText = Replace(originalText, vbCr, vbLf)
    ActiveSheet.Range("A1").Value = originalText
End Sub

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