Как можно объединить автофильтры с функцией автозаполнения в VBA для Excel - PullRequest
Новая
       13

Как можно объединить автофильтры с функцией автозаполнения в VBA для Excel

0 голосов
/ 15 февраля 2019

Я пытаюсь объединить использование автофильтра, а затем автозаполнения столбцов с данными.

В своем процессе я использую автофильтр и выбираю критерии в столбце B, равные 1. Для пустых ячеек в столбце Hтаблицы, я хотел бы заполнить их с текстом.Обычно я просто набираю текст и автоматически заполняю все отфильтрованные строки, пока фильтр включен.Я не могу запрограммировать это в VBA.Хотя мы можем легко обойти эту проблему, используя функцию IF (IF B2 = 1, затем H2 = "text") в этом случае, в дальнейшем в моем процессе я делаю аналогичные вещи.

Selection.AutoFilter
ActiveSheet.Range("$A$1:$AM$1000").AutoFilter Field:=2, Criteria1:="1"
Range("H2").Select
ActiveCell.FormulaR1C1 = "text"
Selection.Autofill Destination:=Range("$H$2:$H$1000")
Range("H2").Select
Selection.FillDown
ActiveSheet.Range("$A$1:$AM$1000").AutoFilter Field:=2

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

...