excel的按钮统计数据

bunan1027

之前在这里找到了一个能实现这个功能的模板，本来想找这位大神请教一下的，可是找不到原贴了，就在这求助一下吧按钮代码如下：
Sub 按钮1_单击()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "1234"
    c = Cells(2, Columns.Count).End(xlToLeft).Column + 1
    If c <= 15 Then c = 15
    Cells(2, c) = [a7]
    Cells(3, c) = [a12]
    Cells(4, c) = [a17]
    Cells(2, "m") = WorksheetFunction.Sum(Cells(2, "o").Resize(1, 7))
    Cells(3, "m") = WorksheetFunction.Sum(Cells(3, "o").Resize(1, 7))
    Cells(4, "m") = WorksheetFunction.Sum(Cells(4, "o").Resize(1, 7))

    Application.ScreenUpdating = True
    If Cells(2, Columns.Count).End(xlToLeft).Column = 21 Then
        MsgBox "请保存数据"
        Range("o2:u4").ClearContents
    End If
    ActiveSheet.Protect "1234"
End Sub



但是现在想做几点修改：
1、现在录入和统计都在同一个工作簿中，我想把统计的数据放在同一张表的另外一个工作簿中，且录入的数据清空，以方便再次录入，要怎么才能实现
2、统计的数据将现在的统计名称和小统次数位置互换，且统计次数没有限制

3、能否新建一个按钮，来实现清空统计工作簿中的数据，清空后再点按钮1，就可以从第一行开始重新统计

不知道哪位大神能帮我解决一下这些问题，非常感谢

bunan1027

补充一下：修改的第一点那块是点击按钮1后，统计数据进入同表的另外一个工作簿后，录入的数据再清空