使用If，Vlookup和Match语句，但收到“预期编译错误：语句结束”

Question

我一直在研究以下代码，其中Excel电子表格有多个选项卡。它应该在另一个选项卡上执行Vlookup，并在表中显示具有“是”或“否”的各种安全类型和字段。根据不同的字段，它将执行BDP功能或返回“＃N/A字段不适用”。

我尝试使用双引号，但仍然收到错误以下行

Cells(r, c)"=If(VLOOKUP(EQUITY, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=""Yes"", ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")"" 

我怎么能解决这个问题还是我错过任何报价后？

VBA如下：

r = 2 
While Cells(r, "A") <> "" 
    c = 2 
    For c = 2 To 79 
        'Cells(r, c) = "=BDP(Cells(" & r & "," & c & "), Cells(1," & c & "))" 
     If InStr(RC1, "EQUITY") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(EQUITY, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=""Yes"", ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

     ElseIf InStr(RC1, "GOVT") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(GOVT, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes, ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

     ElseIf InStr(RC1, "CORP") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(CORP, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes, ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

     ElseIf InStr(RC1, "INDEX") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(INDEX, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes, ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

     ElseIf InStr(RC1, "COMDTY") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(COMDTY, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes, ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

     ElseIf InStr(RC1, "MTGE") <> 0 Then 

      Cells(r, c)"=If(VLOOKUP(MTGE, 'Mandatory Field Control'!$A$1:$CA$7, MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes, ""=BDP(RC1,R1C)"", ""#N/A Field Not Applicable"")" 

结束如果

Next c 
    r = r + 1 
Wend 

Answer 1

你应该使用：

Cells(r,c).Formula = "=Formula Here" 

编辑：你也需要缺少周围Yes双引号

MATCH(B4,'Mandatory Field Control'!$B$1:$CA$1), FALSE)=Yes 

在所有行中，但第一个。 而且Jeeped提到您的Match函数应该更新为包括0或1/-1，具体取决于您希望它返回的内容。

随着个人喜好的问题我也将使用Select Case，而不是If Then的可读性：

Select Case True 
    Case(RC1 Like "*EQUITY*") 'I assume RC1 is a variable 
     Cells(r,c).Formula = "=Formula here" 
    Case(RC1 Like "*GOVT*") 
     Cells(r,c).Formula = "=Formula here" 
     ... 
End Select