Question

EXCEL VBA中忽略出错一行代码，继续向下执行的代码，如何书写

Answer 1

Private Sub CommandButton1_Click()
Dim tji, tjj
For tjj = 6 To 238
If Cells(tjj, 4).Value = "" Then
For tji = 16 To 34
If Cells(tji, 5).Value = "" Then GoTo tjifend
Range(Cells(5, 1), Cells(tjj, 4)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(Cells(4, tji), Cells(5, tji)), CopyToRange:=Range(Cells(6, tji), Cells(6, tji + 1)), Unique:=False
tji = tji + 1
Next tji
End If
Next tjj

tjifend:
end sub

Answer 2

on error resume next