刪除單詞末尾的字母

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