求入职离职人员花名册按月度提取

250057931 · 发表于 2020-3-13 12:15

要求：员工花名册需要按表的格式选取对应的年份和月份，就可以自动出人员明细

250057931 · 发表于 2020-3-13 12:49

250057931 · 发表于 2020-3-13 13:01

有高手吗
急急急

YZC51 · 发表于 2020-3-13 13:04

250057931 发表于 2020-3-13 13:01
有高手吗
急急急

请 VBA 版求助吧

250057931 · 发表于 2020-3-13 13:13

用INDEX数组试了下没成功，不知道哪里的问题

wbperfect · 发表于 2020-3-13 15:00

入职的帮你写好了离职的自己改改

Sub rz()
k = 3
For i = 2 To Sheets("list").Cells(Rows.Count, 1).End(xlUp).Row
yy = Split(Sheets("list").Cells(i, "e"), "/")(0)
mm = Split(Sheets("list").Cells(i, "e"), "/")(1)
If yy = Sheets("total").Cells(2, "g").Text And mm = Sheets("total").Cells(2, "h").Text Then
arr = Sheets("list").Range("b" & i & ":e" & i)
Sheets("total").Range("C" & k).Resize(UBound(arr), 4) = arr
Sheets("total").Cells(k, 1) = k - 2
k = k + 1
End If
Next
Sheets("total").Cells(2, "i") = k - 3
End Sub

复制代码

wbperfect · 发表于 2020-3-13 15:03

附件参考+++++++

flhy99 · 发表于 2020-3-13 23:18

纯公式模式开启，供参考

250057931 · 发表于 2020-3-16 10:17

flhy99 发表于 2020-3-13 23:18
纯公式模式开启，供参考

可以用，谢谢

250057931 · 发表于 2020-3-16 10:39

因每月人员异动为上月21日-本月20日为一个周期，想建立一个表格根据花名册自动更新每月人员异动，详情看附件

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

[求助] 求入职离职人员花名册按月度提取