Member 13029237 Ответов: 2

Excel VBA - сумма столбцов

У меня есть электронная таблица excel с несколькими столбцами. Все, что я хочу сделать, это суммировать каждый столбец и поместить результат в строку после последней строки. Это звучит достаточно просто; однако формулы не показывают.

Что я уже пробовал:

Here is my code . Any help would be appreciated. I'm pulling my hair out here. 


       For c = 2 To 6 Step 1
          ColumnLetter = Split(Cells(1, c).Address, "$")(1)
          strFormula = "=SUM(" & ColumnLetter & "2:" & ColumnLetter & (lastrow - 1) & ")"
          Cells(c, lastrow).Formula = strFormula
       Next

I have also tried Cells(c,lastrow).Value = strFormula with no success

Richard MacCutchan

Что вы на самом деле получаете в каждой колонке?

Member 13029237

Спасибо, что ответили, Я все понял. Это была глупая ошибка.

Richard MacCutchan

Вы уже определились lastrow правильно?

Member 13029237

Спасибо, что ответили, Я все понял. Это была глупая ошибка.

2 Ответов

Рейтинг:
2

Member 13029237

Понять это. У меня был столбец перед строкой в команде Cells.

Рейтинг:
1

Richard MacCutchan

Попробовать это:

lastrow = ' set this to the row that will contain the formulas
For c = 2 To 6 Step 1
   ColumnLetter = Split(Cells(1, c).Address, "$")(1)
   strFormula = "=SUM(" & ColumnLetter & "2:" & ColumnLetter & (lastrow - 1) & ")"
   Cells(lastrow, c).Formula = strFormula
Next