在 Excel VBscript / VBA 中插入换行符

Question

使用 Excel v16

我正在尝试通过用回车替换像波浪号 ~ 这样的字符来格式化单元格中的文本，从而完成的结果将是多行。这实际上是一个多行多列的合并单元格，如下图

这是输入

这是所需的输出

这是我在宏中使用的脚本

Sub FindReplaceAll()
    Sheets("Template").Select
    Range("A34").Select

    iStr = ActiveCell.Value

    For i = 1 To Len(iStr)
        If Mid(iStr, i, 1) = "~" Then
            rtStr = rtStr + vbCr
    Else
        rtStr = rtStr + Mid(iStr, i, 1)
    End If

    Next i

    ActiveCell.Value = rtStr

End Sub

不幸的是，我得到的只是去掉波浪号的同一行 单元格使用换行文本进行格式化。不知道从这里去哪里。

Answer 1

你的整个子程序可以只用一行替换：

sub findReplaceAll()
    Sheets("template").Range("A34").Value = Replace(Sheets("template").Range("A34").value, "~", chr(13)) 
end sub

这会将单元格的值设置为自身，但用回车替换波浪号。正如@johncoleman 的回答中提到的，您可以使用vbcrlf 进行回车/换行，如果您想分叉，可以使用chr(13) & chr(10)。

这也可以在工作表公式中完成：

=SUBSTITUTE(A34, "~", CHAR(13))

Answer 2

通常，在 Windows 中，newlines 您需要vbCrLF 而不是vbCr。可以使用vbCrLf 或简单的vbLf 将多行字符串写入Excel 单元格。如果您使用 Alt+Enter 从用户界面输入这样的字符串，则执行后者直接对应。

如果您打算对字符串执行其他操作而不是将其显示在单元格中，则这样做可能会导致问题，例如将其写入文本文件或将其复制到剪贴板并将其粘贴到不同的应用程序。例如，如果在单元格A1 中键入a Alt+Enter b，您将看到a 直接显示在b 上，但如果您运行以下代码：

Sub test()
    Dim FSO As Object
    Dim f As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.CreateTextFile("C:/programs/test.txt")
    f.Write Range("A1").Value
    f.Close
End Sub

然后在记事本中检查文件，换行符不会显示。由于这些原因，在 VBA 中构建多行字符串时，我几乎总是使用vbCrLf。

因此，如果您想简单地显示字符串，请使用chr(10) 或vbLf，但如果您想稍后在其他地方使用此字符串，请使用vbCrLf。