添加一个范围值，并把总和放到另一张纸上

我有一个表格（Sheet1）与列C中的分数。当我点击button，我想要一个总和显示在单元格B2中的另一个工作表（摘要）。 点击button后，我希望表格被删除，但总和将保留在单元格B2中。 然后，我将继续我的进入一个月，做这个循环。

截图：

我的代码到目前为止：

Private Sub CommandButton1_Click() Set myRange = Range(ActiveCell, ActiveCell.End(xlUp)) Dim myCount As Integer myCount = Application.Count(myRange) Sheets("Summary").Range("B2").Value = "=SUM(C2:C6" & myCount & ")" ' End Sub 

Answer 1

该代码将在Sheet1中的列c的汇总表上进行总结。 确保B列汇总表中有一个标题。

 Private Sub CommandButton1_Click() Dim sum As Worksheet, ws As Worksheet Set sum = Sheets("Summary"): Set ws = Sheets("Sheet1") sum.Range("B" & sum.Range("B1000000").End(xlUp).Offset(1, 0).Row) = WorksheetFunction.sum(ws.Range("C2:C" & ws.Range("C100000").End(xlUp).Row)) ws.Range("A2:C" & ws.Range("A1").SpecialCells(xlCellTypeLastCell).row).ClearContents End Sub