Всем здравствуйте. Если такая тема была, извините, не нашел. Дайте ссылку, я удалю эту. Нужен макрос для подсчета суммы ячеек в каждой строке и выводом на столб. Пример: от A1 до C1 есть n числа, нужен вывод суммы в столбе D
Код
=СУММ(A1:C1)
Мне нужно протянуть формулу "=СУММ(A1:C1)" по всему столбцу D, "=СУММ(A2:C2)", "=СУММ(A3:C3)","=СУММ(A4:C4)" Нужно чтобы это делалось автоматически, за угол тянуть не вариант, так как строки будут удаляться, а формула рано или поздно скушается, да и обьем файла увеличивается если таким образом протянуть до конца...
Всем здравствуйте. Если такая тема была, извините, не нашел. Дайте ссылку, я удалю эту. Нужен макрос для подсчета суммы ячеек в каждой строке и выводом на столб. Пример: от A1 до C1 есть n числа, нужен вывод суммы в столбе D
Код
=СУММ(A1:C1)
Мне нужно протянуть формулу "=СУММ(A1:C1)" по всему столбцу D, "=СУММ(A2:C2)", "=СУММ(A3:C3)","=СУММ(A4:C4)" Нужно чтобы это делалось автоматически, за угол тянуть не вариант, так как строки будут удаляться, а формула рано или поздно скушается, да и обьем файла увеличивается если таким образом протянуть до конца...Kenbroladeb
lr = Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row ReDim arr(1 To lr, 1 To 1) For i = 1 To lr arr(i, 1) = WorksheetFunction.Sum(Cells(i, "A").Resize(, 3)) Next i Range("D1").Resize(UBound(arr)).Value = arr() End Sub
[/vba]
[vba]
Код
Sub Сумма() Dim arr(), lr As Long, i As Long
lr = Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row ReDim arr(1 To lr, 1 To 1) For i = 1 To lr arr(i, 1) = WorksheetFunction.Sum(Cells(i, "A").Resize(, 3)) Next i Range("D1").Resize(UBound(arr)).Value = arr() End Sub
Излишнее цитирование на форуме запрещено. Спасибо, работает. А можно сделать, чтобы макрос запускался при изменении ячеек, а не вручную запускать? Как-то через Worksheet_Change или Worksheet_SelectionChange, я не знаю...
Излишнее цитирование на форуме запрещено. Спасибо, работает. А можно сделать, чтобы макрос запускался при изменении ячеек, а не вручную запускать? Как-то через Worksheet_Change или Worksheet_SelectionChange, я не знаю...Kenbroladeb
Сообщение отредактировал Manyasha - Вторник, 06.06.2017, 16:19