1 2 3 4 5 6 | For iRow = 2 To 12 iSum = iSum + Cells(iRow, 1) Next MsgBox "Сумма ячеек :" & iSumПредполагается, что : 1 - это столбец "A" iRow - это строки с 2 по 12 iSum - это Сумма ячеек Примечание : Если в любой ячейке будут данные отличные от числовых, то Вы получите ошибку. |