Excel VBA【代码】工资表汇总：1~12月应发合计汇总

欢迎点击标题下蓝色文字关注本公众号，谢谢！快速浏览往期合集：【2023年全年】【2024年1月】实用案例|日期控件||简单的收发存||收费管理系(Access改进版)||电子发票管理助手||电子发票登记系统(Access版)||文件合并||表格拆分||审计凭证抽查底稿||中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|收费使用项目|财务管理系统||工资薪金和年终奖个税筹划|内容提要1~12月工资表应发合计汇总完整代码1、在myModule里，mySum1过程，按工号排序，汇总1~12月工资表中的应发合计金额。Sub mySum1()'//按工号排序 Dim ws As Worksheet, rng As Range Dim lastRow As Integer, targetCol As Integer Dim nameList As Object Dim arr(), arrtemp() Dim dic As Object, dkey1, dkey2 Set dic = CreateObject("Scripting.Dictionary") Set nameList = CreateObject("System.Collections.SortedList") For Each ws In ThisW ………………………………