在一定数量的空间后删除右边一半的string

我在Excel中写一个macros，从单个单元格读取一些文本。

ProductID = rw.Cells(1, 1).Text 

但是单元格可能包含一些缓冲区字符，特别是5个连续的空格字符。 我试图删除5个空格（包括空格）后的所有字符（长度和实际文字可能有所不同）。

所以如果string是：

 MyProduct123 removethis 

所需的string将是

 MyProduct123 

看来我可以删除5个空格

 Replace(MyProductStr, " ", "") 

但是我怎样才能得到右侧string或文本的位置去除？

Answer 1

您可以使用InStr来查找五个空格的起始位置，然后在这之前只取出string的一部分：

 Dim pos As Integer pos = InStr(ProductID, " ") If pos > 0 Then ProductID = Left(ProductID, pos - 1) End If