VBA删除字符串后的字

Question

我想从单元格D14开始的所有单元格中第一次出现的开括号之后删除所有单词。我不断提出一个Object Required错误，并不确定问题出在哪里。

Dim startRow As Integer 
Dim pos_of_parenth As Integer 
Dim resultString as String 

startRow = 15 

With Windows(NewTemplateName) 
    .Activate 
    .ActiveSheet.Range("D" & startRow).Select 
    Do While .ActiveSheet.Range("D" & startRow).Value <> "" 
     resultString = "" 
     pos_of_parenth = InStr(1, ActiveSheet.Range("D" & startRow).Text, "(", CompareMethod.Text) 
     resultString = Left(.ActiveSheet.Range("D" & startRow).Value, pos_of_parenth) 
     startRow = startRow + 1 
    Loop 
End With 

Answer 1

变化CompareMethod.Text到VbCompareMethod.vbTextCompare

Answer 2

我也结束了通过简单地摆脱 “CompareMethod.Text” 完全