if 语句没有 else 使用 vba 代码,给我一个语法错误
if statement without an else using vba code, giving me a syntax error
Dim a As Long
a = range("A617:A737").Copy
s = range("A739:A" & EndLine + 2).PasteSpecial
Dim FinalLine As Long
FinalLine = Cells(Rows.Count, "A").End(xlUp).Row
range("B739").AutoFill Destination:=range("B739:B" & FinalLine - 2)
Cells(FinalLine + 10, 2).Formula = "= 5"
Cells("B" & FinalLine + 3).FormulaArray = _
"= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A9:A$" & EndLine + 2))"
错误是突出显示 10 之后的逗号。
更正代码...
Cells( FinalLine + 3,"B").FormulaArray = "= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A9:A$" & EndLine + 2 & ", """"))"
Cells(FinalLine + 3, "B").FormulaArray = _
"= MIN(IF(B739:B" & (FinalLine - 2) & "=5 , A9:A$" & (EndLine + 2) & ", """"))"
Dim a As Long
a = range("A617:A737").Copy
s = range("A739:A" & EndLine + 2).PasteSpecial
Dim FinalLine As Long
FinalLine = Cells(Rows.Count, "A").End(xlUp).Row
range("B739").AutoFill Destination:=range("B739:B" & FinalLine - 2)
Cells(FinalLine + 10, 2).Formula = "= 5"
Cells("B" & FinalLine + 3).FormulaArray = _
"= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A9:A$" & EndLine + 2))"
错误是突出显示 10 之后的逗号。
更正代码...
Cells( FinalLine + 3,"B").FormulaArray = "= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A9:A$" & EndLine + 2 & ", """"))"
Cells(FinalLine + 3, "B").FormulaArray = _
"= MIN(IF(B739:B" & (FinalLine - 2) & "=5 , A9:A$" & (EndLine + 2) & ", """"))"