1 2 3 4 5 6 7 8 9 10 11 12 | iResult = Application.Sum(Range("B5:B10")) iResult = WorksheetFunction.Sum(Range("B5:B10")) iResult = Excel.Application.Sum(Range("B5:B10")) iResult = Excel.WorksheetFunction.Sum(Range("B5:B10")) iResult = Application.WorksheetFunction.Sum(Range("B5:B10"))При необходимости результат вычислений можно поместить в необходимую ячейку, например:[A1] = Application.Sum([B5:B10]) |