如何用Excel VBA提取多行单元格中每行最后斜杠后的内容？

嘿，我太懂你这种代码写了但没效果的郁闷了！其实问题出在VBA的默认设置上——它把星号*当成通配符用了，而不是你要找的那个字面意义的星号，所以原代码根本没法精准匹配到*/这个字符串，自然替换没反应。

修正后的代码 #

给你调整好的代码，就加了一个关键参数MatchWildcards:=False，强制让VBA把*/当作普通字符串来匹配：

Worksheets("Sheet1").Columns("A").Replace _
    What:="*/", _
    Replacement:="", _
    SearchOrder:=xlByColumns, _
    MatchCase:=True, _
    MatchWildcards:=False

要是还是没生效？检查这几点 #

• 确认工作表名称Sheet1拼写完全正确，有没有大小写错误或者多余空格？
• 看看单元格里的*和/是不是半角字符——如果是全角的＊或／，得把代码里的What参数改成对应的全角字符才行。
• 再确认下你要处理的确实是A列，有没有不小心选错列？

这个代码不管单元格里是单行文本还是多行换行的内容，都会遍历整个单元格完成替换，应该能达到你想要的格式效果啦。

内容的提问来源于stack exchange，提问作者User1995