vba删除特定单词的字符串

Question

我有一个值为“NA - 阶段1：初步阶段”的字符串，我想删除短划线“ - ”之前的所有单词。

这是我当前的代码，我能够删除字符串，但它保留了“ - ”，我也想删除它。

indexOfThey = InStr(1, s, "-")
finalString = VBA.Mid(s, indexOfThey)
wksSourced.Cells(lastrowd + 1, 9).Value = finalString

Answer 1

您可以直接替换它：

wksSourced.Cells(lastrowd + 1, 9).Replace "*- ", "", xlPart

Answer 2

我想要修改单元格内容，条件是首先在其中加入破折号。我还想修剪删除后可能留下的任何空白区域。因此我会修改你原来的代码： -

n = InStr(S, "-")
If n Then wksSourced.Cells(lastrowd + 1, 9).Value = Trim(Mid(S, n + 1))

但是，如果字符串S已经驻留在指定的单元格中，则相同的想法将表达如下： -

With wksSourced.Cells(lastrowd + 1, 9)
    n = InStr(.Value, "-")
    If n Then .Value = Trim(Mid(.Value, n + 1))
End With