一、如何在excel2007上整理档案
方法/步骤
首先我们看到以下表格中的信息，我们按照这个表格为例。
如下表中所示，已经有了身份证号码，那么出生日期是不需要再一条一条输入的，可以用公式完成，因为我们知道身份证号码里面包含了出生日期。
比如D3单元格中应该填入的公式是=CONCATENATE(MID(C3,7,4),“年”，MID(C3,11,2)，“月”，MID(C3,13,2)，“日”）。
CONCATENATE函数的作用是将两个或多个文本字符串合并为一个文本字符串。MID函数的作用是返回文本字符串中从指定位置开始的特定数目的字符。于是，就从身份证中取得了生日日期并且连接成日期格式的字符串。
同样道理，工龄和年龄也可以有公式计算得出。由于知道了出生日期和工作时间，所以将当前年份减去工作时间的年份就是工龄，而当前年份减去出生日期的年份就是年龄。对表格进行自动筛选，就可以进行简单的统计分析了。
接下来，就是员工信息查询表。选择员工编号可以查到对应的员工信息。这里的员工编号就是档案管理表中的员工编号，因此，这里用数据有效性来做。
选中C2单元格，选择”数据“标签下的”数据有效性“，”允许“选择”序列“，”来源“输入”=档案管理表！A3：A2“，然后单击确定。
接下来就是根据”员工编号“查询员工信息。比如姓名，A4单元格中输入公式=VLOOKUP(C2，档案管理表！$A$3：$H$20,2)
VLOOKUP函数的作用是在表格数组的首列查找指定的值，并由此返回表格数组当前行中其他的值。
这里第一个参数是指C2为条件单元格，第二个参数是指从档案管理表的$A$3：$H$20范围内查找，第三个参数是指在这个单元格区域中的第二列数值。
同样的方法可以将其他信息一一查出。
二、excel档案管理
在这些档案的文件夹（确保这个文件夹下只有你说的那些数字的文件，最好不要有别的文件，而且数字的位数最好要相等，否则可能会计算出很多不可预测的结果）
下新建一个excel文件
然后按ALT+F11
双击右边中部的："Thisworkbook"
再把以下内容粘贴进去。
保存，运行(按F5)即可。
返回Excel文件即可以看到相关信息。D列就是缺少的文件名
Sub loadfile()
Dim file As String
Dim i As Integer
Dim r As Integer
Dim temp As Long
Dim lack As Integer
Worksheets("sheet1").Columns("A:g").ClearContents
file = Dir(ActiveWorkbook.Path & "", 7)
r = 1
Do While file <> ""
file = Left(file, InStrRev(file, ".") - 1) '去扩展名
If file <> ActiveWorkbook.Name And VBA.IsNumeric(file) Then
Cells(r, 1) = r
Cells(r, 2) = file
r = r + 1
End If
file = Dir()
Loop
For i = 1 To r
Cells(i, 3) = Cells(i, 2)
Next i
Columns("C:C").Sort Key1:=Range("C1"), Order1:=xlAscending
lack = 0
temp = Cells(1, 3)
i = 2
Do While i <= r
nexttemp:
temp = temp + 1
If temp <> Cells(i, 3) Then
If Left(temp, 4) = Left(Cells(i, 3), 4) Then
lack = lack + 1
Cells(lack, 4) = temp
GoTo nexttemp
Else
temp = Cells(i, 3)
End If
End If
i = i + 1
Loop
End Sub
