Сумма столбца

Question

Я хочу рассчитать сумму различных столбцов на листе и заполнить ее на другом листе.

LastrowA = Weight.Cells(Weight.Rows.Count, "A").End(xlUp).Row 
Set Rng = Weight.Range("A2" & LastrowA) 
Weight.Activate 

Summ= WorksheetFunction.Sum(Rng) ' Doesn't work 
Summary.Cells(1, 1).Value=Summ 

Summary.Cells(1, 1).Value = Application.Sum(Rng) ' Doesn't Work 

Два листа - вес и краткая характеристика. Я пробовал два пути, и оба дают мне ответ Zero. Я хочу продолжать делать это для всех моих столбцов. Пожалуйста посоветуй. Спасибо.

Answer 1

Этот подраздел подведут данные в листе 1 столбцов A до C и положить результаты в Лист2

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

Надеется, что это помогает

Sub SumRange() 
Dim wb as Workbook 
Set wb = Thisworkbook 
Dim ws as worksheet 
Set Weight = wb.Sheets("Weight") 

LastRow1 = Weight.Range("A" & Rows.Count).End(xlUp).Row 
Set Rng = Weight.Range("A2:A" & "" & LastRow1 & "") 
Col1Sum = WorksheetFunction.Sum(Rng) 

LastRow1 = Weight.Range("B" & Rows.Count).End(xlUp).Row 
Set Rng = Weight.Range("B2:B" & "" & LastRow1 & "") 
Col2Sum = WorksheetFunction.Sum(Rng) 

LastRow1 = Weight.Range("C" & Rows.Count).End(xlUp).Row 
Set Rng = Weight.Range("C2:C" & "" & LastRow1 & "") 
Col3Sum = WorksheetFunction.Sum(Rng) 

ThisWorkbook.Sheets("Sheet2").Cells(2, 2).Value = Col1Sum 
ThisWorkbook.Sheets("Sheet2").Cells(3, 2).Value = Col2Sum 
ThisWorkbook.Sheets("Sheet2").Cells(4, 2).Value = Col3Sum 

End Sub 

Answer 2

Прежде всего, у меня нет превосходства здесь, поэтому я не могу попробовать сам, что я думаю. , но я думаю, что вы используете Рендж-метод неправильный путь .. он должен выглядеть следующим образом:

Set Rng = Weight.Range("A2" , Cells(LastrowA , "A")) 

так есть «» между аргументами вместо „&“ есть второй сотовый вместо номера строки. Надежда, что помогает