更改单元格中的行时防止重新格式化字符

Question

我有一个带有格式化文本的单元格，其中包含我想用换行符替换的某个子字符串。子字符串是带有方括号的 [enterkey]。这是这个问题Replace HTML tag(</br>) with Alt+Enter in Excel 的一个变体，但我想在换行后继续格式化。

我使用的代码是一个简单的替换，其中 rng2 是输入和输出单元格：

rng2.Value = Replace(rng2.Value, "[enterkey]", Chr(10))

我的问题

在插入换行符时，如何防止该代码复制上述行的格式？我希望它保持原样并简单地插入一个换行符，如图所示。

---

更多信息

我实际上是在转换为 HTML 并返回。我不想添加不必要的细节，但如果人们真的想知道，那是因为我将值存储在 Access 数据库中，并且我想保留单元格格式。从 Access 检索信息时，我想再次获得正确的格式。这个问题只涉及转换回来。详情见下图。

Answer 1

经过一番研究，我得到了一些有用的东西。

这段代码：

Sub ReplaceEnterKey()

Dim rng2 As Range
Set rng2 = Range("O15")

Dim iChr As Integer
iChr = InStr(1, rng2.Value, "[e") 'find beginning of first occurence of "[enterkey]"

Do Until iChr = 0 'loop until no more occurences found

    rng2.Characters(iChr, 10).Delete 'remove found occurrence of "[enterkey]" - 10 characters
    rng2.Characters(iChr, 0).Insert Chr(10) 'insert carriage return where "[enterkey]" used to be

    iChr = InStr(1, rng2.Value, "[e") 'look for next occurence

Loop

End Sub

创建了这个结果。 N15 原为 O15。