将离职名单加入各表不消除“在职”，请大神赐教，谢谢！

wangzqxa

在R列有“在职”字样，如果把离职名单加入各表后，在R列显示“离职”，“在职”字样消失了
。我想达到的效果是：如果将离职名单加入各表后，在R列在职人员还是显示“在职”字样，离职
人员显示“离职”字样，谢谢大神赐教！

zpy2

没看懂，路过，帮顶一下

wangzqxa

zpy2 发表于 2019-6-13 14:44
没看懂，路过，帮顶一下

我没说清楚，有个离职表，就是把离职名单加入各表，在其他表R列会显示“离职”字样，但原来的在职字样消失了。我想达到的效果是：如果将离职名单加入各表后，在R列在职人员还是显示“在职”字样，离职人员显示“离职”字样

零零度

不知道是不是楼主要的效果

1. Sub Macro2()
   
2. Dim arr, brr, crr, d, i&, j&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("离职").UsedRange
   
5. For i = 4 To UBound(arr)
   
6.     If arr(i, 17) = "离职" Then d(arr(i, 4)) = arr(i, 17)
   
7. Next
   
8. For i = 1 To Sheets.Count
   
9.     If Sheets(i).Name <> "离职" And Sheets(i).Name <> "持证" And Sheets(i).Name <> "持证分布情况" And Sheets(i).Name <> "模糊查询" And Sheets(i).Name <> "公司组织培训情况" And Sheets(i).Name <> "持证汇总表" And Sheets(i).Name <> "持双证查询" And Sheets(i).Name <> "队员持证情况多条件查询" And Sheets(i).Name <> "消安队持证情况多条件查询" And Sheets(i).Name <> "离职（自行）" And Sheets(i).Name <> "职业名称新旧对照表" Then
   
10.         k = Sheets(i).Range("E65536").End(xlUp).Row
    
11.         brr = Sheets(i).UsedRange
    
12.         crr = d.keys
    
13.         For j = 0 To d.Count - 1
    
14.             For k = 3 To UBound(brr)
    
15.                If crr(j) = brr(k, 5) Then
    
16.                 brr(k, 18) = "糖糖糖糖" '--->这里填“离职” 我写这个是验证用
    
17.                 End If
    
18.             Next
    
19.         Next
    
20.         Sheets(i).Range("A1").Resize(UBound(brr, 1), UBound(brr, 2)) = brr
    
21.     End If
    
22. Next
    
23. End Sub
    

复制代码

Jaofuan

本来想用数组的，奈何技术有限，…哈哈…

wangzqxa

Jaofuan 发表于 2019-6-13 16:32
本来想用数组的，奈何技术有限，…哈哈…

没达到，我想要的效果。感觉自己的要求有点高。

Jaofuan

wangzqxa 发表于 2019-6-14 15:41
没达到，我想要的效果。感觉自己的要求有点高。

哦，没达到最起码要说个原因吧

wangzqxa

Jaofuan 发表于 2019-6-14 15:46
哦，没达到最起码要说个原因吧

我想达到的效果是，在其他表R列有在职字样，如果把离职表内的离职名单加入各表，在职人员在R列显示还是原来的在职，而离职人员显示是离职。

Jaofuan

wangzqxa 发表于 2019-6-15 09:44
我想达到的效果是，在其他表R列有在职字样，如果把离职表内的离职名单加入各表，在职人员在R列显示还是 ...

对所有工作表有效，只是你需要插入一个控件引用一下宏