一列的总和

我想要计算工作表中不同列的总和并将其填充到另一个工作表中。

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 

这两张表是重量和总结。 我已经尝试了两种方法，都给了我一个零的答案。 我想继续为我所有的专栏做。 请指教。 谢谢。

Answer 1

本小节将总结第1页第A列至第C列的数据，并将结果放在Sheet2中

你可以使用这个子，只是改变列的字母和输出单元格。

希望这可以帮助

 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

首先，我在这里没有优秀的成绩，所以我不能自己试试我在想什么。 但我认为你使用Range-Method的方式是错误的..它应该看起来像这样：

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

所以在参数之间有一个“，”而不是一个“＆”有一个第二个单元而不是一个行号。 希望有所帮助