假如是A列吧 在其中插入一個模組將下面的程式碼複製 Sub qiuhe() Application.CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, before:=11).Caption = "計算" Application.CommandBars("Worksheet menu bar").Controls("計算").Controls.Add(Type:=msoControlButton, before:=1).Caption = "求和" Application.CommandBars("Worksheet menu bar").Controls("計算").Controls("求和").OnAction = "total_cacu" End Sub sub total_cacu() dim i,total_rows as integer dim tota as double tota=0 total_rows = Worksheets("sheet1").[a65536].End(xlUp).Row for i=1 to total_rows step 1 tota=tota+cells(i,1).value next i cells(total_rows+1,1).value=tota end sub 試試看行不行.因為我不知道你具體的表格格式，所以可能看上去有點單調。 程式能在選單欄增加一個選單項“計算”-“求和”，只要你點一下“求和”就可以實現你想要的了。前一段程式碼由於顯示寬度的原因分了兩行，複製到編輯器中注意會出錯。這個只是手動計算，如果想自動那要用到監視單元格。一時半會我寫不出來了，我也初學。
假如是A列吧 在其中插入一個模組將下面的程式碼複製 Sub qiuhe() Application.CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, before:=11).Caption = "計算" Application.CommandBars("Worksheet menu bar").Controls("計算").Controls.Add(Type:=msoControlButton, before:=1).Caption = "求和" Application.CommandBars("Worksheet menu bar").Controls("計算").Controls("求和").OnAction = "total_cacu" End Sub sub total_cacu() dim i,total_rows as integer dim tota as double tota=0 total_rows = Worksheets("sheet1").[a65536].End(xlUp).Row for i=1 to total_rows step 1 tota=tota+cells(i,1).value next i cells(total_rows+1,1).value=tota end sub 試試看行不行.因為我不知道你具體的表格格式，所以可能看上去有點單調。 程式能在選單欄增加一個選單項“計算”-“求和”，只要你點一下“求和”就可以實現你想要的了。前一段程式碼由於顯示寬度的原因分了兩行，複製到編輯器中注意會出錯。這個只是手動計算，如果想自動那要用到監視單元格。一時半會我寫不出來了，我也初學。