使用帶有特殊字符的修剪功能

Question

我有一列（A）值，我想在左邊修剪。 A列中的每個值中都有一個/，用於分隔德語單詞和英語翻譯。 例如，一個值為“ nein / no”。 （請注意，兩個詞之間有一個空格。

我想做的是編寫一個修剪函數，該函數在/后面的空格之后開始。 換句話說，我希望示例中的值從“ nein / no”微調為“ no”。 令我感到困惑的部分是，每個值的大小都在變化，因此我不知道如何告訴excel從哪里刪減。 我的代碼應該看起來像這樣

For each cl in range("A1:A300"). Trim cl.value. Next cl

Answer 1

試試下面的代碼：

Dim start As Long

    For Each cl In Range("A1:A300")
        str = c1

        start = InStr(1, str, "/", vbTextCompare) + 1

        strVal = Trim(Right(str, Len(str) - start))
        msgbox strVal 
    Next cl

Answer 2

首先是這樣的：

For each cl in Range("A1:A300")
    With cl
        .Value = Trim(Len(.Value) - Right(.Value, _
             Application.WorksheetFunction.Find("/", .Value)))
    End With
Next

Answer 3

您不需要VBA即可解決此問題。 一個簡單的公式就足夠了：

=RIGHT(A1,LEN(A1)-FIND(" ",A1,FIND(" ",A1)+1))

---

否/否= 否

---

皮褲/馬褲= 馬褲

---

doppelganger / doppelganger = doppelganger