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

我有一个列，其中的单元格包含如下数据：

PY=486776347 PY 7031493729

我试图在这个实例中动态地删除后面的所有内容，包括空格，但是知道如何为任何角色执行此操作会很有用

我试过了，但没有成功：

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

及

---

我认为您只需要添加（

&

）如下：

或：

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

3

：

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

---

结果是：

PY=486776

完美、彻底的答案。非常感谢。不过，出于好奇，如果我想删除第二个空格后的所有内容呢？@Dr.Trey，欢迎您，如果所有数据都是这种格式（第二个空格前有

PY

），我们可以使用

列（“P:P”）。替换内容：=“PY*”，替换：=“PY”，查看：=xlPart

。如果没有，我们可能需要对范围内的每个单元格使用loop

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

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

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