Excel:使用换行符替换html标记

时间:2015-02-11 11:51:32

标签: excel excel-vba vba

我有包含html的电子表格。这太丑了。我可以使用VB删除html:

Replace What:="<*>", Replacement:="",

这更整洁,但我失去了使文本更具可读性的换行符。我想要做的是在插入之前插入换行符。 <li>Chr(10)是插入换行符的VB,但是这不会插入换行符:

Sub listItem()
Cells.Replace What:="<li>", Replacement:=Chr(10) & " - ", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
End Sub

它用连字符替换<li>,但没有换行符。它不会抛出错误。我假设我错误地使用了Chr(10),但我可以使用一些帮助。

1 个答案:

答案 0 :(得分:0)

正如我在评论中提到的,您的代码对我来说很好,但是您还有其他选项来创建下一行:

(Chr10)
vbNewLine 
vbLf
vbCrLf

所有这些常量都可以用作新行。我不知道有什么不同,但所有这些都适合我:)

您可以尝试这些并查看它们是否有效。