[VBA：替换双换行符

Question

我正在尝试替换vba中字符串中的多个换行符。

'mystring
I am a 


string

双换行符应替换为一些文本。

Dim str As String
Dim str_new As String

str = Cells(1, 1).Value

str = Replace(str, "Chr(10) Chr(10)", "<p>")

Cells(2, 1).Value = str_new

对于单个换行符来说效果很好：

str = Replace(str, "Chr(10)", "<br>")

这就是为什么我认为“ Chr（10）Chr（10）”有问题。我已经尝试过不同的类型，例如“ Chr（10）＆Chr（10）” ...

任何人都可以帮助在vba中实现可靠的换行符？

Answer 1

这稍微完整一点：

Sub DoubleReturns()
    Dim s As String

    s = Chr(10) & Chr(10)
    Cells(2, 1) = Replace(Cells(1, 1), s, "<p>")
End Sub

例如：