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」 完全