使用特殊字符的修剪function

我有一列我想修剪到左边的值（A）。 A列中的每个值都有一个/，它用德语分隔一个单词，并且是英文翻译。 例如，一个值将是“nein / no”。 （注意两个词之间有一个空格。

我想要做的是写一个修剪function，开始于/后面的空格。 换言之，我希望我的示例中的值从“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)) 

---

nein / no = no

---

皮短裤/马裤= 马裤

---

doppelganger / doppelganger = doppelganger