Question

我收到了这个错误：

编译错误：预期：结束语

尝试在下面的代码中使用VBA语句中的Excel公式时。

错误发生在"FIND("for ","...

上

For i = 2 To lastRow
    aa = ThisWorkbook.Sheets(3).Cells(i, "A").Text                  
    ThisWorkbook.Sheets(3).Cells(i, "E").Formula = "=MID(aa,FIND("for ",aa)+4,FIND(" ",aa,FIND("for ",aa)+4)-(FIND("for ",aa)+4))"
Next i

Answer 1

有点长：

您需要在公式中添加"，我想使用Chr(34)添加它。

首先，您的aa是一个变量，每次在循环中前进i时都会发生变化，因此在公式中您需要打破常量部分并每次添加" & aa & "你用吧。但是，您需要将"添加到aa，这就是我将aa行修改为：

的原因

aa = Chr(34) & ThisWorkbook.Sheets(3).Cells(i, "A").Text & Chr(34)

其次，我添加了名为String的{{1}}变量，并将值设置为Myfor，只是为了尝试“缩短”公式。

<强>代码

Myfor = Chr(34) & "for " & Chr(34)

VBA Excel公式编译错误 - 预期结束语句

1 个答案: