每个月工资表人数及顺序不一致，如何统计全年个人工资收入，请大神赐教

甜甜￥阳阳

每个月工资表人数及顺序不一致，如何统计全年个人工资收入，请大神赐教。

甜甜￥阳阳

有红包答谢哦

xliutree

SUMIF函数自学一下就可以解决了

smhf_6

空对空了。
红包免收。

不知楼主一年的数据存放形式如何。 但可以工作簿之间做个循环，或者工作表之间循环，然后用字典统计可以了，至于人员多少变化 ，位置顺序变化，都没有关系。

rongyihit

smhf_6 发表于 2018-7-5 18:35
空对空了。
红包免收。

小白借楼请教一下，请问工作表之间循环和字典统计是指什么啊，如何操作呢，谢谢！

melville

rongyihit 发表于 2018-7-6 13:50
小白借楼请教一下，请问工作表之间循环和字典统计是指什么啊，如何操作呢，谢谢！

类似下面这样子，这个是工作表循环

Dim d As Object
Dim i As Long
Dim s As String
Dim sh As Worksheet

On Error Resume Next
Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "汇总"
Set d = CreateObject("Scripting.Dictionary")
For Each sh In Worksheets
  
    t = sh.Name
    arr = Sheets(t).Range("A1").CurrentRegion
    If sh.Name <> "汇总" Then
        For i = 4 To UBound(arr)  
            s = arr(i, 2)
            If s <> "" Then
            If d.Exists(s) Then
                d(s) = d.Item(s) + arr(i, 32)
                Else
                d(s) = arr(i, 32)
            End If
            End If
        Next
        End If
Next
   Sheets("汇总").Range("A1") = "姓名"
   Sheets("汇总").Range("B1") = "合计"


    Sheets("汇总").Range("A2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)  
    Sheets("汇总").Range("B2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.Items)

rongyihit

melville 发表于 2018-7-6 15:36
类似下面这样子，这个是工作表循环

Dim d As Object

感谢，我好好研究下

smhf_6

12个月工资，如果放在同一表，用函数sumifs可以，
如果放在12份表，或12个工作簿，当然要循环，逐表处理了。
至于字典，好处主要是每月人员多少无关，变化无关，顺序无关。dc(姓名或证件号)=dc(姓名或证件号)+X
姓名或证件号: 必须唯一
X：每月的金额
循环结束 ，装在dc(姓名或证件号)中的值就是该员工的总金额，取出来即可

胖脸摩卡

你好，可以使用 数据——合并计算，这个功能。
原来在公司统计过员工12个月年收入时使用这个功能。但是要求，每个表的表头项目都必须是一致的。同时第一列要 是可以作为唯一识别该员工的信息，使用姓名的话要考虑重名。建议使用员工编号。楼主可百度学习一下。这个很方便的。

甜甜￥阳阳

胖脸摩卡 发表于 2018-7-9 20:03
你好，可以使用 数据——合并计算，这个功能。
原来在公司统计过员工12个月年收入时使用这个功能。但是要 ...

非常感谢，我研究学习下。