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

Например: