如何用VBA替换指定单词右侧的所有文本为空格？

你之前用Replace函数时加通配符*没用，是因为VBA的Replace只支持精确字符串匹配，不识别*这类通配符，所以得换下面几种方法实现需求：

方法1：用InStr+Left函数（最稳妥） #

通过找到" from "的位置，截取该位置之前的内容：

Dim module As String, ws As Worksheet
Set ws = ActiveSheet
module = ws.Cells(1, 2).Value ' 单元格值为Part Number 1234 from workbook 2

Dim fromPos As Integer
fromPos = InStr(module, " from ") ' 匹配带空格的" from "，避免误识别
If fromPos > 0 Then
    module = Left(module, fromPos - 1) ' 截取到"from"前面的位置，去掉多余空格
End If

Debug.Print module ' 输出结果：Part Number 1234

注：找" from "（前后加空格）是为了避免字符串中其他位置出现"from"导致误截。

方法2：用Split函数（最简洁） #

按" from "分割字符串，取第一个片段：

Dim module As String, ws As Worksheet
Set ws = ActiveSheet
module = ws.Cells(1, 2).Value

' 分割后直接取第一个元素
module = Split(module, " from ")(0)

Debug.Print module ' 输出结果：Part Number 1234

如果担心字符串中没有" from "会报错，可以加判断：

Dim parts() As String
parts = Split(module, " from ")
If UBound(parts) >= 0 Then
    module = parts(0)
End If

方法3：用正则表达式（适合复杂匹配场景） #

如果需要更灵活的匹配规则，可以用正则替换掉"from"及之后的内容：

Dim module As String, ws As Worksheet
Set ws = ActiveSheet
module = ws.Cells(1, 2).Value

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = " from .*$" ' 匹配从" from "开始到字符串结尾的所有内容
regEx.Global = True

module = regEx.Replace(module, "")
Debug.Print module ' 输出结果：Part Number 1234

为什么之前的方法失效？ #

VBA的Replace函数是精确匹配子串，当你写Replace(module, "*from", "")时，它会去字符串里找*from这个精确的字符组合，而不是你预期的"任意字符+from"，所以自然替换不了。

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