excel中如何将相同项目下的不同内容提取并重新生成一张新表？

Question

500人的人员信息名单中，一个人一份信息表，比如表中项目有姓名，性别，年龄，职务等项目，需要把其中姓名和职务项中的内容提取出来，生成一份新表格，如何操作？菜鸟虚心求教！

Answer 1

是500个文件还是500个工作表，如果是500个工作表：
Sub t()
For i = 2 To Application.Sheets.Count
Sheet1.Range("A" & i) = Sheets(i).Range("A1") '将分表中A1单元格的值赋给“总表”的A列
'其它类推
Next
End Sub
可以参照进行修改。

Answer 2

如果这500人，每人上交了一个EXCEL文件给你，那么，你有两个选择：
1、手工
2、只好用VBA来实现了。