vba - Excel VBA : If value not found in range, 转到

Question

我使用以下代码循环遍历工作表 1-31，通过工作表(“RunFilter_2”)中单元格(“E1”)中的值过滤每个工作表，然后复制过滤后的范围并复制到下一个空行在工作表中(“RunFilter_2”)。

当代码在事件工作表的第 18 列中找不到 Sheets("RunFilter_2").Range("E1") 的值时，会发生错误。

因此，我添加了范围检查，检查是否在 Range("R:R") 列中找到 Sheets("RunFilter_2").Range("E1").Value。

但是，如果 rngFound 是什么都没有，我该如何转到下一个 I？

Sub RunFilter2()

Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook
    Set ws = wb.sheets("01")

         Dim WS_Count As Integer
         Dim I As Integer

         WS_Count = ActiveWorkbook.Worksheets.Count - 3

         For I = 1 To WS_Count

Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count

sheets(I).Select

Columns("A:U").Select

Dim rng As Range
Dim rngFound As Range

Set rng = Range("R:R")

Set rngFound = rng.Find(sheets("RunFilter_2").Range("E1").Value)

If rngFound Is Nothing Then

'----------------------------------
' How do I code ... GO TO Next I
'----------------------------------

Else:

Selection.AutoFilter

ActiveSheet.Range("$A$1:$U" & LastRow).AutoFilter Field:=18, Criteria1:=sheets("RunFilter_2").Range("E1").Value

    Range("A1").Offset(1, 0).Select
    Rows(ActiveCell.Row).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

sheets("RunFilter_2").Select

If Range("A4").Value = "" Then

Range("A4").Select

Else

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

End If

ActiveSheet.Paste
ws.Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
sheets("RunFilter_2").Select

         Next I

End Sub

Answer 1

你可以这样做:

For I = 1 To WS_Count
    If rngFound Is Nothing Then goto NextIPlace
    your code
NextIPlace:
Next I

但是你应该重新考虑这样的写法，使用 GoTo 并不是一个好的 VBA 实践。整个代码应该改变。 Check more here 。一旦您的代码有效，请随时将其提交至 https://codereview.stackexchange.com/ ，他们会给你好的想法。