从数据中按照条件进行汇总

zhaoyx2002 · 发表于 2018-1-22 20:59

有一组数据，需要按照条件进行提取并汇总
相关需求已经在附件中了，请大神帮帮忙！感谢

狗尾巴草儿 · 发表于 2018-1-22 22:10

你好，我用代码实现了除了汇总之外的所有要求，汇总是用公式做的，因为代码我还没想好怎么写，先发给你这个，怕你急用，明天再帮你完善

Sub 条件填充()
Set a = Worksheets("1-人员基本信息")
Set b = Worksheets("5-编制表（市场部）")
For j = 3 To 31
k = 6
For i = 2 To 408
If a.Cells(i, 3) = "在职" And a.Cells(i, 11) = "负责人" And b.Cells(j, 2) = a.Cells(i, 10) Then
b.Cells(j, 5) = a.Cells(i, 4)
End If
If a.Cells(i, 3) = "在职" And a.Cells(i, 11) <> "负责人" And b.Cells(j, 2) = a.Cells(i, 10) Then
b.Cells(j, k) = a.Cells(i, 4)
k = k + 1
End If
Next
c = WorksheetFunction.CountA(b.Range(b.Cells(j, 5), b.Cells(j, 15)))
b.Cells(j, 4) = c
Next
End Sub

复制代码

zhaoyx2002 · 发表于 2018-1-22 22:52

谢谢，我想用函数实现

狗尾巴草儿 · 发表于 2018-1-23 08:37

zhaoyx2002 发表于 2018-1-22 22:52
谢谢，我想用函数实现

那我试试函数，晚点回复你

zhaoyx2002 · 发表于 2018-1-23 09:37

狗尾巴草儿发表于 2018-1-23 08:37
那我试试函数，晚点回复你

好的，非常感谢你哦！以后多交流，我是HR

狗尾巴草儿 · 发表于 2018-1-23 17:06

zhaoyx2002 发表于 2018-1-23 09:37
好的，非常感谢你哦！以后多交流，我是HR

好的，数据处理方面的事，可以找我试试。

zhaoyx2002 · 发表于 2018-1-23 20:58

狗尾巴草儿发表于 2018-1-23 17:06
好的，数据处理方面的事，可以找我试试。

能加下你的微信吗？以后多沟通，向你学习，我的微信号是zhaoyx99999

		自动登录	找回密码
密码			免费注册

[求助] 从数据中按照条件进行汇总