VBA присваивает значения фильтруемой таблице без для l oop - улучшение производительности - PullRequest
Новая
       9

VBA присваивает значения фильтруемой таблице без для l oop - улучшение производительности

0 голосов
/ 16 февраля 2020

Есть ли способ установить значения для видимых ячеек после выбора автофильтрации без для l oop из-за скорости. В данный момент у меня работает этот код, но для его завершения требуется много. Мне было интересно, если это лучший способ для фильтрации, а затем назначить переменную (двойная точность) для видимого столбца таблицы 

    Sheets("DB").ListObjects("Consulta1").Range.AutoFilter Field:=3, Criteria1:=item_id_6, Operator:=xlFilterValues
    Sheets("DB").ListObjects("Consulta1").Range.AutoFilter Field:=18, Criteria1:=fy, Operator:=xlFilterValues
    Sheets("DB").ListObjects("Consulta1").Range.AutoFilter Field:=19, Criteria1:=fm, Operator:=xlFilterValues

    Sheets("DB").Select

    'Range("AJ2").Select
    Cells(2, 35 + x).Select
    Range(Selection, Selection.End(xlDown)).Select

    Selection.SpecialCells(xlCellTypeVisible).Select
    'ActiveCell.Value = incremental

        For Each cell In Selection
            cell.Value = incremental
        Next cell
...