Автоматическое заполнение диапазона ячеек формулой.

[garry2000]

Заранее извиняюсь за может быть и глупый вопрос от новичка:
Задача такова:
в диапазон ячеек A1:A(N) импортируются внешние данные, при этом в диапазон ячеек B1:B(N) нужно АВТОМАТИЧЕСКИ (не вручную) вставить заданную функцию, например "=A1*2", "A2*2" и т.д.

(то есть в ячейке B1 должна стоять формула "=A1*2", в ячейке B2 - должна стоять формула "=A2*2", при этом это должно делаться автоматически, а не ручным копированием функции в диапазон ячеек.)

Проблема в том, что количество строк в столбике A:A меняется каждый раз при импортировании новых данных, и Excel не знает, во сколько ячеек столбика B:B нужно вставить эту функцию.
Заранее огромное спасибо всем ответившим!

[Igor67]

Как вариант - макросом

Sub Макрос1()

Dim iLastRow As Long
'определяем последнюю заполненую строку
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row

'вставляем формулу в диапазон
Range("B1" & ":B" & iLastRow).FormulaR1C1 = "=RC[-1]*2"
'заменяем формулу на значение
Range("B1" & ":B" & iLastRow).Value = Range("B1" & ":B" & iLastRow).Value

End Sub

Вашу формулу запишите макрорекордером

[SAS888]

нужно АВТОМАТИЧЕСКИ (не вручную) вставить заданную функцию, например "=A1*2", "A2*2" и т.д.

В модуль нужного листа вставьте следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Target.Column <> 1 Then Exit Sub
    For Each cell In Target
        If cell <> "" Then
            cell.Next.Formula = "=" & cell.Address & "*2"
'Если нужны не формулы, а значения, то вместо предыдущей строки используйте следующую
            'cell.Next = cell * 2
        Else: cell.Next = ""
    End If: Next
End Sub

Пример использования см. во вложении.

ПРИМЕЧАНИЕ: Данная процедура запускается автоматически по событию изменения значений ячеек 1-го столбца и обрабатывает только изменившиеся ячейки. К сожалению, Вы не указали каким образом осуществляется импорт данных. Есть разница.

[garry2000]

Igor67 и особенно SAS888, спасибо огромное! Жаль, не могу репутации добавить...