如何在excel中使用VBA刪除'*'或' - '字符后的文本？

Question

我編寫了以下代碼，在excel中使用VBA但在其給出錯誤的行中的'*'或' - '字符后刪除文本。 有人可以幫忙嗎？

Sub Removetext()

For each c In Range("A1:ZZ1")
    c.Value = Left(c.Value, InStr(c.Value, "-") - 1)
Next C

End Sub

Answer 1

正如@JNevill和@fidnwindow的評論中所述，您需要測試是否找到了搜索對象：

Sub Removetext()

For Each c In Range("A1:ZZ1")
    If InStr(c.Value, "-") > 0 Then
        c.Value = Left(c.Value, InStr(c.Value, "-") - 1)
    End If
        If InStr(c.Value, "*") > 0 Then
        c.Value = Left(c.Value, InStr(c.Value, "*") - 1)
    End If
Next c

End Sub

問題是，當InStr找不到標准時，它返回0 。 所以現在你正在尋找將拋出和錯誤的左-1個字符。