InStr 提取“[”之前的所有文本，如果某些单元格包含“[”而某些单元格不包含

Question

我有以下代码返回一个

运行时错误“5”

一旦遇到不包含[

Cells(i + 2, 11) = Left(Cells(i * 2 + 1, 12), InStr(1, Cells(i * 2 + 1, 12), "[") - 1)

在这个例子中：
Cheese[1]可以并返回Cheese 。
Marmite(2)[13]没问题并返回Marmite(2) 。
Spreadable butter(13)不起作用。

请问有什么解决办法

---

谢谢，那么根据下面的帮助，我如何将两个IF语句合并并应用到以下语句中？

For i = 1 To 4
   If Cells(i * 2 + 2, 14) <> "" Then
      Cells(i + 2, 3) = Left(Right(GetURL(Cells(i * 2 + 2, 17)), 12), 7)
      Cells(i + 2, 11) = Left(Cells(i * 2 + 1, 12), InStr(1, Cells(i * 2 + 1, 12), "[") - 1)
      Cells(i + 2, 12) = Left(Cells(i * 2 + 1, 13), InStr(1, Cells(i * 2 + 1, 13), "[") - 1)
   End If
Next i

我只是 VBA 的初学者。

Answer 1

您可以检查它是否包含[ first...

如果找不到您要查找的字符串，则Instr() function 返回 0，因此如果没有If语句首先检查该字符串，您最终会得到一个 0，并且您的代码从零中减去 1 得到 -1 ，这不是Left function 的有效参数，因此您会收到错误消息。

If InStr(1, Cells(i * 2 + 1, 12), "[") > -1 Then
  Cells(i + 2, 11) = Left(Cells(i * 2 + 1, 12), InStr(1, Cells(i * 2 + 1, 12), "[") - 1)
End If

这假设单元格实际上永远不会以[

如果它是第一个字符，为避免出现错误：

If InStr(1, Cells(i * 2 + 1, 12), "[") > 0 Then
  Cells(i + 2, 11) = Left(Cells(i * 2 + 1, 12), InStr(1, Cells(i * 2 + 1, 12), "[") - 1)
End If