Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2443|回复: 4

[已解决]如何将总表,工种列自动对应姓名生成工种,工种分别在表一和表二中。

[复制链接]
发表于 2014-4-20 12:03 | 显示全部楼层 |阅读模式
如何将总表,工种列自动对应姓名生成工种,工种分别在表一和表二中。
最佳答案
2014-4-20 12:27
………………
 楼主| 发表于 2014-4-20 12:09 | 显示全部楼层
刚刚忘了上传附件,现在补回来。

BOOKS.zip

3.1 KB, 下载次数: 4

回复

使用道具 举报

发表于 2014-4-20 12:26 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, brr, d, i%, j&
  3. Set d = CreateObject("scripting.dictionary")
  4. Sheets("总表").Activate
  5. brr = Range("h3:h" & Range("h65536").End(xlUp).Row)
  6. For i = 1 To 2
  7.     arr = Sheets(i).Range("a2").CurrentRegion
  8.     For j = 3 To UBound(arr)
  9.         d(arr(j, 2)) = arr(j, 3)
  10.     Next
  11. Next
  12. For i = 1 To UBound(brr)
  13.     brr(i, 1) = d(brr(i, 1))
  14. Next
  15. Range("i3").Resize(UBound(brr)) = brr
  16. End Sub
复制代码
回复

使用道具 举报

发表于 2014-4-20 12:27 | 显示全部楼层    本楼为最佳答案   
………………

BOOKS.zip

9.3 KB, 下载次数: 21

回复

使用道具 举报

 楼主| 发表于 2014-4-20 12:31 | 显示全部楼层
非常感谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:56 , Processed in 0.535655 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表