求VBA提示缺少结束语句是什么问题

gaiety1974

下面黄色语句是刚加进去的，帮忙大师看下提示确实结束语句是什么问题， 谢谢
With ActiveSheet
     .Range("D4") = ""
     .Range("D5") = ""
     .Range("G5") = ""
     .Range("I5") = ""

     .Range("C8:J57").ClearContents

     .Range("D59") = ""

     .Range("M1") = Format(Now(), "yyyy-m-d")
     .Range("G4") = "=text(M1,""yyyy-m-d"")"
     .Range("I4") = "=" & Sheet13.Name & "!$C$9&" & Sheet13.Name & "!$C$12&TEXT(M1," & Sheet13.Name & "!$C$10)&" & Sheet13.Name & "!$C$12&TEXT(M2," & Sheet13.Name & "!$C$11)"
'     .Range("H56:I56") = ""
'     .Rows("16:55").Hidden = True
     .Range("X1") = ""
     .Range("Z1") = ""

      .Range("I58") = "=IFERROR(AVERAGE(IF(I8:I12<>0,I8:I12)),0)"
      .range("D58") = "=IF(I58="TBD","TBD",LOOKUP(I58,{0,51,61,76,86,101,116,150},{"劣","差","较差","一般","合格","良好","优秀"}))"
      .Range("D58") = "=""人民币(大写) ""&N2RMB(I58)"
      .Range("I8:I57").FormulaR1C1 = "=RC[-2]*RC[-1]"
End With


Call ShowLine
Application.ScreenUpdating = True
End Sub

金樽空对月

不加那句，有没有出现错误提示？

benhsu

少了引号
.range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

金樽空对月

你试下把双引号内的所有双引号改成双双引号看看。