删除单词末尾的字母

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