Результат його роботи наступний:
Пояснимо, що робить наша функція.
По-перше, тут два циклу. Зовнішній цикл проходимо по всіх стовпцях, внутрішній - по всіх рядках стовпчика.
Workbooks ( "Книга 1"). Worksheets ( "Лист1"). Activate - активуємо лист «Лист1» книги «Книга 1».
«I, j» - проміжні змінні, вони визначають координати осередку в таблиці Excel ( «i» - номер рядка - перше значення, «j» - номер стовпця - друга координата).
«Do While Cells (i, j) .Value <> "" »- роби, поки значення осередку« Cells (i, j) .Value »з координатами« (i, j) "не будемо одно« пусте ». Це початок першого циклу, так ми пройдемо по всіх стовпцях від «A» до «F».
«Amount = 0» - змінна, яка буде накопичувати суму значень комірок в стовпці.
«Do While Cells (i, j) .Value <> "" »- роби, поки значення осередку« Cells (i, j) .Value »з координатами« (i, j) "не будемо одно« пусте ». Це початок внутрішнього циклу, так ми проходимо по всіх осередків шпальти «j» від «1» до «6».
«Amount = amount + Cells (i, j) .Value» - накопичуємо суму.
«I = i + 1» - змінюємо лічильник, щоб перейти до наступного рядка.
«Cells (i, j) .Value = amount» - записуємо суму в кінець стовпчика.
«J = j + 1» - змінюємо лічильник, щоб перейти до наступного колонки.
«I = 1» - для того, щоб в новому стовпці почати зчитувати з першого рядка.
Програма працює наступним чином, ми запускаємо макрос. макрос викликає функцію (процедуру), яка, власне, і виконує підрахунок суми.