VBA删除string后的单词

我试图从单元格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”来修复它