Excel VBA Ячейки не найдены

Question

У меня есть следующие примеры кодов, чтобы отфильтровать данные и вставить на другой лист.

Я уже использую не пустой, чтобы избежать ситуации, но у меня все еще есть ошибка "Нет ячейки", и яТакже убедитесь, что файл, помеченный как «Нет ячейки», должен содержать данные, которые соответствуют критериям.

Set vFind = Range("B2:B" & lastRow).Find(what:="0", LookIn:=xlValues, lookat:=xlWhole)

If Not vFind Is Nothing Then
    filterRange.AutoFilter Field:=2, Criteria1:="=0"
    copyRange1.SpecialCells(xlCellTypeVisible).Copy Destination:=thisws.Cells(RowNo, 3)
    copyRange2.SpecialCells(xlCellTypeVisible).Copy Destination:=thisws.Cells(RowNo, 4)

Answer 1

Код, который у вас есть, занимает Range("B2:B" & lastRow) из текущего активного листа .
Чтобы убедиться, что вы берете правильные данные, попробуйте добавить имя листа до вызова Range, например:

Worksheets("SheetName").Activate
Set vFind = Worksheets("SheetName").Range("B2:B" & lastRow).Find(what:="0", LookIn:=xlValues, lookat:=xlWhole)

If Not vFind Is Nothing Then
    filterRange.AutoFilter Field:=2, Criteria1:="=0"
    copyRange1.SpecialCells(xlCellTypeVisible).Copy Destination:=thisws.Cells(RowNo, 3)
    copyRange2.SpecialCells(xlCellTypeVisible).Copy Destination:=thisws.Cells(RowNo, 4)