工资汇总问题?

阿欣

分类汇总就可以

lhsh

=SUMIF(清单!B2:B500,"部门号",清单!Q2:Q500)[em06]

nb330106

如果不嫌复杂的话，可以凑合着用

依安维

15楼的例题如果4月份还要改函数？

是否试一下经小小改动格式后的例题。[em10][em04]

lxsam

你的批注的边框很漂亮，怎么做的？

lxsam

找到了，谢谢

sqac

关于文件上传:
回复---浏览---上传---发表,或查阅论坛帮助.

sqac

Sub 汇总()
   Dim i As Variant, j As Integer
   Dim x As Variant, y As Integer
   Dim s As Worksheet, h As Worksheet
   Set h = Worksheets("汇总")
   Set i = h.[a3].CurrentRegion
   i = i.Rows.Count - 1
   For j = 4 To 3 + i
      h.Cells(j, 5) = ""
      For Each s In Worksheets
        If s.Name <> "汇总" Then
            Set x = s.[a3].CurrentRegion
            x = x.Rows.Count
            For y = 4 To 3 + x
                If s.Cells(y, 1) = h.Cells(j, 1) Then
                    h.Cells(j, 5) = h.Cells(j, 5) + s.Cells(y, 5)
                End If
            Next
        End If
      Next
   Next
End Sub