小编Mic*_*y D的帖子

为什么 VBA 替换函数不能与 Word 和 Excel 中的 CRLF 一起使用

我可以发誓我过去已经剥离了 CRLF,但不确定为什么以下内容不起作用:

myString = "ABC" & vbCrLf & "DEF"
str1 = Replace(myString, vbLf, "")
str2 = Replace(str1, vbCrLf, "")
str3 = Replace(str2, vbNewLine, "") 
MsgBox str3
Run Code Online (Sandbox Code Playgroud)

上面的代码不起作用,结果是:

ABC
DEF
Run Code Online (Sandbox Code Playgroud)
myString = "ABC" & vbCrLf & "DEF"
str1 = Replace(myString, Chr(13), "")
str2 = Replace(str1, Chr(10), "")
MsgBox str2
Run Code Online (Sandbox Code Playgroud)

上面的代码确实有效,结果是:

ABCDEF
Run Code Online (Sandbox Code Playgroud)

解决方案:感谢@ Mat 的回答(第一个代码的问题是我试图删除项目的顺序)VbCrLf 和 VbNewLine 是相同的,并且在删除 VbLf 后尝试删除组合 vbCr+VbLf 将不起作用

vba replace chr

3
推荐指数
1
解决办法
7320
查看次数

标签 统计

chr ×1

replace ×1

vba ×1