多张表格合并及条件查询

chenxinlove · 发表于 2010-6-23 14:44

工具箱，是自己编写的还是？

yuyujulin · 发表于 2010-6-23 15:02

我无意中下了个好工具

clean-nj · 发表于 2010-6-23 15:07

头一回听说有这玩意，下载看看。

ahzll · 发表于 2010-6-23 17:48

原帖由 xihabang 于 2010-6-23 06:24 发表
找到勒 ..确实好东西.请问您是作者吗 ...太厉害勒

哈哈，是我自己写的。

aricen · 发表于 2010-6-23 23:53

我悲剧了......都冲工具箱去了

lhx120824 · 发表于 2010-6-24 00:43

原帖由 aricen 于 2010-6-23 23:53 发表
我悲剧了......都冲工具箱去了

话题转移了。那你也试试吧。

aricen · 发表于 2010-6-24 01:08

呵呵，能实现的目标都实现了，现在比较棘手的是目标三，就是要把简历表的信息完全汇总在一张SHEET表上

jexyan · 发表于 2010-6-24 09:57

支持个~~~~~~！

cmy1011 · 发表于 2010-6-24 10:40

偷偷试用下，呵呵

ahzll · 发表于 2010-6-25 08:49

你把各个人的表并到一个工作簿后，再导入附件中的汇总表（含代码），执行“生成汇总信息”就可以了。

也可以自己执行一下代码：
Sub 生成汇总数据()
  Dim I As Long, R As Range, H As Long

  H = 3
  For I = 2 To Sheets.Count
Cells(H, 1) = Sheets(I).Cells(5, 2)
Cells(H, 2) = Sheets(I).Cells(5, 4)
Cells(H, 3) = Sheets(I).Cells(5, 6)
Cells(H, 4) = Sheets(I).Cells(6, 2)
Cells(H, 5) = Sheets(I).Cells(6, 4)
Cells(H, 6) = Sheets(I).Cells(6, 6)
Cells(H, 7) = Sheets(I).Cells(7, 2)
Cells(H, 8) = Sheets(I).Cells(7, 5)
Cells(H, 9) = Sheets(I).Cells(8, 2)
Cells(H, 10) = Sheets(I).Cells(9, 3)
Cells(H, 11) = Sheets(I).Cells(10, 2)
Cells(H, 12) = Sheets(I).Cells(10, 4)
Cells(H, 13) = Sheets(I).Cells(10, 6)
H = H + 1
  Next I

End Sub

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

[求助] 多张表格合并及条件查询

回复 17楼 lhx120824 的帖子