EXCEL VBA中忽略出错一行代码,继续向下执行的代码,如何书写
2个回答
展开全部
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
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
参考资料: 百度一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
on error resume next
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |