从花名册提取离职名单和在职名单

荔枝轩 · 发表于 2016-3-7 10:34

从花名册提取离职和在职名单到另外的在职和离职表格，在职和离职名单可以根据花名册自动更新

yeminqiang · 发表于 2016-3-7 10:54

Sub cdsr()
Dim arr, brr(1 To 10000, 1 To 25), crr(1 To 10000, 1 To 25)
arr = Sheet6.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
      If arr(i, 13) = "在职" Then
         m = m + 1
         For j = 1 To 25
            brr(m, j) = arr(i, j)
         Next
      Else
         If arr(i, 13) = "离职" Then
            n = n + 1
            For j = 1 To 25
                  crr(n, j) = arr(i, j)
            Next
         End If
      End If
Next
Sheet8.Range("a2:y10000") = ""
Sheet9.Range("a2:y10000") = ""
Sheet8.Range("a2").Resize(m, 25) = brr
Sheet9.Range("a2").Resize(n, 25) = crr
End Sub

yeminqiang · 发表于 2016-3-7 10:54

员工信息.rar (57.7 KB, 下载次数: 189)

朱荣兴 · 发表于 2016-3-7 11:02

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2016-3-7 11:03

提示: 作者被禁止或删除内容自动屏蔽

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2016-3-7 11:02 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2016-3-7 11:03 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报