当只有一条数据时检查报错

alanlad

各位老师

大家好

我用别人代码改的参数，引用到我自己表里，发现当只有一行数据的时候会报错，有两行就没事了

不知道哪里的代码有问题，麻烦老师帮我看看


Sub 验证可打印()
'On Error Resume Next
If Sheet1.Range("m10") = "" Then
MsgBox "无数据"
Else
Range("Q10").Select
     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],设置!C[-16]:C[-15],1,0)"
    Range("q10").AutoFill Destination:=Range("q10:q" & Range("l1000").End(xlUp).Row)
    Range("R10").Select
    ActiveCell.FormulaR1C1 = _
        "=DATE(MID(RC[-6],3,4),MID(RC[-6],7,2),MID(RC[-6],9,2))+VLOOKUP(RC[-5],设置!C[-17]:C[-12],6,0)"
    Range("R10").AutoFill Destination:=Range("R10:R" & Range("l1000").End(xlUp).Row)
     Range("S10").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-6],错误抬头纠正!C[-18]:C[-17],2,0),"""")"
       Range("S10").AutoFill Destination:=Range("S10:S" & Range("l1000").End(xlUp).Row)
    End If
End Sub

yylucke

上传附件吧

半百

判断一下再决定是否填充？