如何快速汇总员工简历

kennethx

一大堆相同格式的简历，我都全部粘贴到了一个工作簿中，如何能将每个工作表中的数据汇总到一张工作表内，每行一个人的信息，本人菜鸟，请各位大虾指点。

kennethx

刚才忘了上传表样了，主要就是想把简历给弄到花名册里去，一行一个人的信息，不知道用什么函数合适

zhouxiao

1. 
   
2. 
   
3. Sub 汇总()
   
4.     Dim sht As Worksheet
   
5.     i = 1
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> "汇总花名册" Then
   
8.               With Sheet1
   
9.                 .Cells(i + 1, 1) = sht.Cells(3, 2)  '姓名
   
10.                 .Cells(i + 1, 2) = sht.Cells(3, 4)    '性别
    
11.                 .Cells(i + 1, 3) = sht.Cells(3, 6)    '出生日期
    
12.                 .Cells(i + 1, 4) = sht.Cells(3, 8)    '民族
    
13.                 .Cells(i + 1, 5) = sht.Cells(4, 2)    '政治
    
14.                 .Cells(i + 1, 6) = sht.Cells(4, 4)    '参加工作时间
    
15.                 .Cells(i + 1, 7) = sht.Cells(4, 7)    '籍贯
    
16.                 .Cells(i + 1, 8) = sht.Cells(5, 2)    '工作单位及职级?职务
    
17.                 .Cells(i + 1, 9) = sht.Cells(6, 2)    '原始学历
    
18.                 .Cells(i + 1, 10) = sht.Cells(6, 4)    '毕业学校
    
19.                 .Cells(i + 1, 11) = sht.Cells(6, 8)    '毕业时间
    
20.                 .Cells(i + 1, 12) = sht.Cells(7, 2)    '现取得学历
    
21.                 .Cells(i + 1, 13) = sht.Cells(7, 4)    '毕业学校
    
22.                 .Cells(i + 1, 14) = sht.Cells(7, 8)    '毕业时间
    
23.                 .Cells(i + 1, 15) = sht.Cells(8, 2)    '身份证号码
    
24.                 .Cells(i + 1, 16) = sht.Cells(9, 2)    '联系方式
    
25.                 .Cells(i + 1, 17) = sht.Cells(10, 2)    '家庭住址
    
26.                 .Cells(i + 1, 18) = sht.Cells(11, 2)    '个人简历
    
27.                 .Cells(i + 1, 19) = sht.Cells(12, 2)    '家庭成员
    
28.                 .Cells(i + 1, 20) = sht.Cells(13, 2)    '备注
    
29.             End With
    
30.         i = i + 1
    
31.         End If
    
32.     Next
    
33. End Sub
    
34. 
    

复制代码

kennethx

太感谢了，我试一下哈

office2013

膜拜了，学习中。

shliuliying

学习了。收藏，今天试着用以下

麦丁

好晕。。。研究中

kszcs

zhouxiao 发表于 2014-3-20 16:19

如果是独立的工作表，怎么修改代码？

mao11wei

zhouxiao 发表于 2014-3-20 16:19

谢谢，向你学习。再请教，如果是在同一个文件夹下的多个简历信息提取如何修改代码呢。

mao11wei

zhouxiao 发表于 2014-3-20 16:19

谢谢，向你学习。再请教，如果是在同一个文件夹下的多个简历信息提取如何修改代码呢。