VBA：删除（包括）特定字符后的所有内容

Question

我的列中包含的数据包含以下数据：

PY=486776347 PY 7031493729

我尝试动态删除此实例中包含空格之后的所有内容，但知道如何为任何字符执行此操作非常有用。

我试过这个，没有成功：

Columns("P:P").Replace What:=" ""*", Replacement:="", LookAt:=xlPart

和

[P:P].Replace What:=" ""*", Replacement:="", LookAt:=xlPart 'should be effectively the same function as above

Answer 1

我认为您只需要添加（&），如：

Columns("P:P").Replace What:=" " & "*", Replacement:="", LookAt:=xlPart

或者：

Columns("P:P").Replace What:=" *", Replacement:="", LookAt:=xlPart

我们可以用任何字符替换空格，例如3：

Columns("P:P").Replace What:="3*", Replacement:="", LookAt:=xlPart

结果是：PY=486776