未完成 --On Error Resume Next 和 IsError(Application.Match(）报错等

On Error Resume Next

        id2 = Application.index(Worksheets("petbag").Columns(a2), Application.Match(j, Worksheets("petbag").Columns(a1), 0))
        icon2 = Application.index(Worksheets("pet1").Columns(b2), Application.Match(id2, Worksheets("pet1").Columns(b1), 0))
        
        
'        On Error Resume Next
        If IsError(Application.Match(j, Worksheets("petbag").Columns(a1), 0)) Then
           nickname2 = ""
        Else
            nickname2 = Application.index(Worksheets("petbag").Columns(a3), Application.Match(j, Worksheets("petbag").Columns(a1), 0))
        End If

        If IsError(Application.Match(j, Worksheets("petbag").Columns(a1), 0)) Then
           level2 = ""
        Else
            level2 = Application.index(Worksheets("petbag").Columns(a4), Application.Match(j, Worksheets("petbag").Columns(a1), 0))
        End If
        
        Controls("image" & j + 1).Picture() = LoadPicture(ThisWorkbook.Path & "\res\" & icon2 & ".jpg")
        Controls("label" & j).Caption = nickname2
        Controls("label" & j + 9).Caption = level2