Страницы: 1
RSS
Расчет суммы нескольких диапазонов
 
Помогите пожалуйста разобраться не могу доделать макрос, Есть таблица, она создается автоматически, и количество строк с данными может быть разным, требуется подсчитывать сумму  
четырех диапазонов и прописать результаты в четырех ячейках.    
В файле я пометил всё соответствующими цветами.
 
Sub InputSums()  
   With Sheets("GLREPORT")  
       'сумма красных  
       .Cells(.[H7].End(xlDown).Row, "H").Offset(3, 0).Formula = "=SUM(H7:H" & .[H7].End(xlDown).Row & ")"
       'сумма зелёных  
       .Cells(.[G7].End(xlDown).Row, "G").Offset(4, 1).Formula = "=SUM(G7:G" & .[G7].End(xlDown).Row & ")"
       'сумма каких-то коричневых  
       Dim iLastRow&  
       iLastRow = .Cells(Rows.Count, "H").End(xlUp).Row  
       .Cells(iLastRow, "H").Offset(3, 0).Formula = "=SUM(H" & .Cells(iLastRow, "H").End(xlUp).Row & ":H" & iLastRow & ")"  
       'сумма голубых  
       .Cells(iLastRow, "H").Offset(4, 0).Formula = "=SUM(G" & .Cells(iLastRow, "G").End(xlUp).Row & ":G" & iLastRow & ")"  
   End With  
End Sub
 
ОГРОМНОЕ ВАМ СПАСИБО! Реально выручили, именно то что мне надо было.
 
не за что )  
 
P.S. ужасть, в 4 утра написал код, сейчас смотрю на него, вроде, ник мой, а код какой-то незнакомый, еле вспомнил, что это действительно я писал ))
Страницы: 1
Наверх