Как перейти к скрытым строкам, созданным фильтром, и выбрать первую, не скрытую строку или лучшую ячейку, даже если каждая строка имеет заданное значение c? - PullRequest
0 голосов
/ 17 марта 2020

Итак, это то, что я хочу сделать после простой фильтрации. Я хочу выбрать первый диапазон, который появляется после диапазонов фильтра, и сейчас все, что я делаю, это выбираю диапазон внутри первой скрытой строки, есть ли манеры прыгать оккультные ряды?

    Set xBaseCell = Range("A2").CurrentRegion
    Set xUnwantedCell = Range("B1:D1")

    xUnwantedCell.Clear
    With xBaseCell
        .AutoFilter 2, "10", xlTop10Items
        .AutoFilter 8, "28", xlFilterValues
        .AutoFilter 11, "SA LIGHT FABS", xlFilterValues
    End With
    xInputBoxValue = InputBox("Do you want me to clear certain filters and advance to the second stage? Yes or no")
    LCase (xInputBoxValue)
    If xInputBoxValue = "no" Then
       Exit Sub
    Else:
         xBaseCell.AutoFilter 2
    Set xSelectedRange = Range("a2").Offset(1, 8)
    xSelectedRange.Select
    End If

1 Ответ

0 голосов
/ 17 марта 2020
set xlSelectedRange = Cells(rows.count, 1).specialcells(xlcelltypevisible).end(xldown).Select

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

Возможно, вы захотите квалифицировать свои диапазоны следующим образом:

with Workbooks("myworkbookpath/myworkbook").sheets("Sheet1")
    set xlSelectedRange = .Cells(.rows.count, 1).specialcells(xlcelltypevisible).end(xldown).Select
end with

В зависимости от того, какова ваша конечная цель, вам, скорее всего, не нужно ничего выбирать. Как избежать Выберите .

Я не уверен, что означает последняя половина названия вашего вопроса.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...