Как автоматически протягивать формулы?

[АлександрМГ]

Всем, доброго дня. Столкнулся с проблемой, с моими навыками работы в Excel самостоятельно решить её не могу. Подскажите пожалуйста, как сделать так, чтобы формулы в диапазоне E:L автоматически протягивались как-только в диапазоне A:D появляется текстовая информация (по средству copy\past или вставляя скопированные строки целиком). Все формулы представляют собой ВПР. В вырезке из файла так нужно мне сделать в листе "ПБС" и "ФБС", формулы на этих листах почти идентичны, разница только в формулах столбца E (они лукапят разные диапазоны). Кол-во строк может варьировать от 15000 до 300000 строк. Заранее благодарен!

[DiemonStar]

Кол-во строк может варьировать от 15000 до 300000 строк.

При таких объёмах разумнее Access использовать. Хотя можно привязаться к изменению ячейки и обновлять формулы в данной строке.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells(Target.Cells(1, 1).Row, 1).FormulaLocal = "=A1"
End Sub

примерно так, только прописывайте свои формулы в свои ячейки...

[Hugo121]

Я бы делал разово макросом на словаре и массивах (как всегда )
Ну или при переходе на эти листы обновлял информацию (подтягивал заново)
И сделать проще, и файл не распухнет, и открываться будет нормально (16*30000 ВПРов - не шутки...)

[DiemonStar]

(16*30000 ВПРов - не шутки...)

один нолик пропустил) там ситуация ещё круче)) да и для 300к строк даже макрос не будет шустрым

[Hugo121]

Точно пропустил... 300к строк! Не шутки...
Тогда ВПР() вообще нереально использовать.
А макрос вполне - миллион на словаре делали за минуту, на коллекции за 11 сек.

[АлександрМГ]

Я пытался написать макрос, который бы протягивал ВПР по всей таблице, но кол-во строк постоянно меняется, а макрос постоянно протягивает до определенной строки (до той, которой в момент написания макроса протягивал). Может вы знаете как научить макрос определть до какой строки надо протягивать (это всегда нижняя граница массива)

[DiemonStar]

Да я не спорю, что можно. Просто на Access это будет сделать правильнее и логичнее. Особенно при наличии хотя-бы 15к контрагентов...

Sub ff()
  Range("E1:L1").AutoFill Range("E1:L" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

примерно так можно сделать автозаполнение (только тормоза на больших таблицах неизбежны)

[АлександрМГ]

С Access я ни когда не работал, попробую поковыряться. А как научить макрос в Excele определять нижнюю границу протягивания формул, если обьём данных не такой большой?

[Hugo121]

Забудьте про формулы на таких объёмах.
Про последнюю строку - вариантов много. Самое лучшее - погуглить по "определение последней строки Excel".

[DiemonStar]

С Access я ни когда не работал, попробую поковыряться.

Тогда лучше сделайте для начала вариант Hugo - т.е. при открытии/по кнопке заполнять свободные значения макросом из словаря. Это будет быстрее всего.