我的vba模块中有以下代码
For i = 4 To lastOutputCol
If Sheets("Mort Rates").Cells(1, i).Value Mod 5 = 0 Then
For x = 2 To lastOutputRow
Sheets("Mort Rates").Cells(x, i).Value = Application.WorksheetFunction.Index(Sheets("Input").Range(Cells(17,dbPerkCol),Cells(lastInputRow,dbPerkCol+2)) _
,Application.WorksheetFunction.Match( Sheets("Mort Rates").Cells(x,2)&Sheets("Mort Rates").Cells(1,i)&Sheets("Mort Rates").Cells(x,3) _
,Sheets("Input).Range(Cells(17,1),Cells(lastInputRow,1)),0),1)
Next x
End If
Next i
我收到一个编译错误:“ Expeted:列表分隔符或”。我不确定为什么。