Консультация № 180825
17.11.2010, 19:38
54.81 руб.
0 2 2
Здравствуйте, эксперты!
Вопрос по автозаполнению ячеек.

Диапазон «А1:В11» заполнен значениями. Надо просуммировать эти столбцы.
Вот суммирую:

Sub Макрос4()
'
Range ("C1"). Select
Range ("C1"). FormulaR1C1 = " = RC[-1]+RC[-2]"
Range ("C1"). AutoFill Destination: = Range ("C1:C11")

End Sub

В данном примере явно указан диапазон автозаполнения («С1:С11»).
Возможно ли автозаполнение до тех пор пока левая ячейка содержит значения, т.е без явного указания диапазона?


Обсуждение

Неизвестный
17.11.2010, 20:43
общий
это ответ
Здравствуйте, Жорж!
Код:
Dim c As Integer ' здесь будет количество строк
c = UsedRange.Rows.Count ' количество строк
Cells(1, 3).FormulaR1C1 = "=RC[-1]+RC[-2]" ' формула в первой строке
Cells(1, 3).AutoFill Destination:=Range(Cells(1, 3), Cells(c, 3)) ' автозаполнение всего диапазона
5
Благодарю за помощь!
Неизвестный
18.11.2010, 00:05
общий
это ответ
Sub Макрос1()
Dim i As Integer
i = 1
While (Cells(i, 1).Value <> "" And Cells(i, 2).Value <> "")
Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value
i = i + 1
Wend
End Sub
5
Благодарю за помощь!
Форма ответа