在我们日常工作中，表格经常会有非常多的数据需要我们处理，特别是财务工作中涉及到金额，并且打印时要好几页纸，要是每页纸能计算出合计数就方便阅读了今天小编以现金收支表为例教大家如何给每页添加小计金额、最后一页再添加上总计金额。
一、3种自动小计、合计方法
上图中是某公司产品不同日期的销量和金额，然后以每自然月为小计，进行销量和金额的总计。首先我们拉取数据区域，或者点击数据区域任意单元格，直接按下CTRL+A全选。再通过快捷键CTRL+G，呼出定位框：
点击左下角的“定位条件”，进入设置界面：
找到“空值”，并点击选择，然后点击确定即可。这样便将数据区域中空白的需求和的单元格选中。通过我们以往学过的求和快捷键：ALT+=，快速求和快捷键，便能直接得到各月份的小计求和数据。
二、Excel 宏功能自动汇总数据使用Excel的宏功能可以实现自动化汇总数据，以下是一个简单的示例：打开需要汇总数据的工作簿，并按下Alt+F11快捷键打开Visual Basic Editor宏代码。
一、Excel宏代码如下Sub 汇总工作簿中各工作表数据() Dim sht As Worksheet, rng As Range, k&, trow& Application.ScreenUpdating =
False trow = Val(InputBox("请输入标题的行数", "提醒")) If trow < 0 Then MsgBox "标题行数不能为负数", 64, "警告": Exit Sub Cells.ClearContents Cells.NumberFormat = 。
"@"For Each sht In Worksheets If sht.Name <> ActiveSheet.Name Then Set rng = sht.UsedRange k = k + 1If
k = 1 Then rng.Copy [a1].PasteSpecial Paste:=xlPasteValues Else rng.Offset(trow).Copy Cells(ActiveSheet.UsedRange.Rows.Count +
1, 1).PasteSpecial Paste:=xlPasteValues End If End If Next [a1].Activate Application.ScreenUpdating =
True MsgBox "数据合并完成，一共" & k & "张工作表", 0, "Excel秘籍大全" End Sub二、WPS宏代码functionGetShtData(){ Cells.ClearContents();
//清除整表旧数据let aRes=[],k=0; var qwe=InputBox("请输入标题的行数"); for(let sht of Worksheets){ if(sht.Name!=ActiveSheet.Name){
let aTemp = sht.UsedRange.Value2; if(Array.isArray(aTemp)){ if(k++>0){aTemp.splice(0,qwe);}; aRes.push(...aTemp); } } }
if(aRes!=false){ Range("a1").Resize(aRes.length,aRes[0].length).Value2=aRes; } MsgBox("数据合并完成，一共" + k +
"张工作表",0,"Excel秘籍大全");修改代码中的“产品名称”和“销售额”等字段名称，并根据实际情况修改需要汇总的数据区域的位置按下F5键或单击“运行”按钮执行宏，执行完毕后会自动在新的工作表中汇总数据。
需要注意的是，宏功能在执行过程中可能会受到Excel的安全设置限制，需要根据具体情况进行设置。同时，编写宏时应该注意代码的可读性和可维护性，以便后续修改和扩展。
亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。