删除单词末尾的字母

Question

目标：
删除每个单词末尾的字母。
我想从“请求的结果”列中获得结果。

问题：
如何使用VBA编码来做到这一点？
不要忘记“白色空间”。

Answer 1

使用Excel式

=MID(A2,1,SEARCH("(",A2,1)-1) 

使用VBA

Sub test() 

    Dim lastRow As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 

    For i = 2 To lastRow 
     Cells(i, 2) = Mid(Cells(i, 1), 1, InStr(1, Cells(i, 1), "(", vbTextCompare) - 1) 
    Next 
End Sub