代码之家 › 专栏 › 技术社区 › Pinlop

无法从变量中删除“Enter”

powerpoint excel vba

Pinlop · 技术社区 · 7 年前

因此,我当前运行的代码将从ppt中的幻灯片中提取字符串,其中一些字符串可能带有空格或回车/换行符。下面的代码就是我所拥有的,它可以很好地删除空格,但对于回车/换行符不起作用。

pptText = Shpe.TextFrame.TextRange
pptText = LCase(Replace(pptText," ",""))
pptText = Replace(pptText,vbNewLine,"")

iq_42, iq_26, iq_72

在调试器中,变量pptText如下所示:

pptText = iq_42, iq_26,iq_72

我尝试过修剪和替换,并尝试使用vbNewLine/vbCrLf/vbCr/vbLf识别回车/换行符,但没有成功。

有没有关于如何删除所有“回车”痕迹的想法?

2 回复 | 直到 6 年前

K.Dá´á´ Éªs 7 年前

你可以试试这个:

正如明智的建议 @Kostas K ,这是函数版本

Function RemoveEnter(ByVal YourString As String) As String
    RemoveEnter = Replace(Replace(Replace(YourString, vbCrLf, ""), vbCr, ""), vbLf, "")
End Function

Torc 7 年前

pptText = Replace(pptText, Chr$(10), "")

这将用零替换换行符(Excel中的字符(10))。你也可以做“Chr(10)”。dolla$ign只是说“将其作为字符串值返回”

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前