Private Sub CommandButton1_Click()
Dim i, k As Integer
k = 2
For i = 2 To 200
If Sheet2.Cells(i, 3) = Sheet1.Cells(2, 3) Then
Sheet1.Cells(k, 1) = Sheet2.Cells(i, 1) '序号
Sheet1.Cells(k, 2) = Sheet2.Cells(i, 2) '档案号
Sheet1.Cells(k, 3) = Sheet2.Cells(i, 3) '姓名
Sheet1.Cells(k, 4) = Sheet2.Cells(i, 4) '现岗位
Sheet1.Cells(k, 5) = Sheet2.Cells(i, 5) '薪级取得时间
Sheet1.Cells(k, 6) = Sheet2.Cells(i, 6) '现薪级
Sheet1.Cells(k, 7) = Sheet2.Cells(i, 7) '现岗位工资
Sheet1.Cells(k, 8) = Sheet2.Cells(i, 8) '现薪级工资
Sheet1.Cells(k, 9) = Sheet2.Cells(i, 9) '现合计
Sheet1.Cells(k, 10) = Sheet2.Cells(i, 10) '性别
Sheet1.Cells(k, 11) = Sheet2.Cells(i, 11) '现任职务
Sheet1.Cells(k, 12) = Sheet2.Cells(i, 12) '出生年月
Sheet1.Cells(k, 13) = Sheet2.Cells(i, 13) '年龄
Sheet1.Cells(k, 14) = Sheet2.Cells(i, 14) '民族
Sheet1.Cells(k, 15) = Sheet2.Cells(i, 15) '参加工作 时间
Sheet1.Cells(k, 16) = Sheet2.Cells(i, 16) '教龄年限
Sheet1.Cells(k, 17) = Sheet2.Cells(i, 17) '政治面貌
Sheet1.Cells(k, 18) = Sheet2.Cells(i, 18) '入、党团 时间
Sheet1.Cells(k, 19) = Sheet2.Cells(i, 19) '职称等级
Sheet1.Cells(k, 20) = Sheet2.Cells(i, 20) '职称取得 时间
Sheet1.Cells(k, 21) = Sheet2.Cells(i, 21) '现学历
Sheet1.Cells(k, 22) = Sheet2.Cells(i, 22) '毕业时间
Sheet1.Cells(k, 23) = Sheet2.Cells(i, 23) '毕业院校
Sheet1.Cells(k, 24) = Sheet2.Cells(i, 24) '所学专业
Sheet1.Cells(k, 25) = Sheet2.Cells(i, 25) '联系电话
Sheet1.Cells(k, 26) = Sheet2.Cells(i, 26) '身份证号
Sheet1.Cells(k, 27) = Sheet2.Cells(i, 27) '籍贯
Sheet1.Cells(k, 28) = Sheet2.Cells(i, 28) '进入本单位时间
Sheet1.Cells(k, 29) = Sheet2.Cells(i, 29) '校长任职时间
Sheet1.Cells(8, 1) = Sheet1.Cells(2, 10) '性别
Sheet1.Cells(9, 1) = Sheet1.Cells(3, 10) '性别
Sheet1.Cells(10, 1) = Sheet1.Cells(4, 10) '性别
Sheet1.Cells(8, 2) = Sheet1.Cells(2, 11) '现任职务
Sheet1.Cells(9, 2) = Sheet1.Cells(3, 11) '现任职务
Sheet1.Cells(10, 2) = Sheet1.Cells(4, 11) '现任职务
Sheet1.Cells(8, 3) = Sheet1.Cells(2, 12) '出生年月
Sheet1.Cells(9, 3) = Sheet1.Cells(3, 12) '出生年月
Sheet1.Cells(10, 3) = Sheet1.Cells(4, 12) '出生年月
Sheet1.Cells(8, 4) = Sheet1.Cells(2, 13) '年龄
Sheet1.Cells(9, 4) = Sheet1.Cells(3, 13) '年龄
Sheet1.Cells(10, 4) = Sheet1.Cells(4, 13) '年龄
Sheet1.Cells(8, 5) = Sheet1.Cells(2, 14) '民族
Sheet1.Cells(9, 5) = Sheet1.Cells(3, 14) '民族
Sheet1.Cells(10, 5) = Sheet1.Cells(4, 14) '民族
Sheet1.Cells(8, 6) = Sheet1.Cells(2, 15) '参加工作 时间
Sheet1.Cells(9, 6) = Sheet1.Cells(3, 15) '参加工作 时间
Sheet1.Cells(10, 6) = Sheet1.Cells(4, 15) '参加工作 时间
Sheet1.Cells(8, 7) = Sheet1.Cells(2, 16) '教龄年限
Sheet1.Cells(9, 7) = Sheet1.Cells(3, 16) '教龄年限
Sheet1.Cells(10, 7) = Sheet1.Cells(4, 16) '教龄年限
Sheet1.Cells(14, 1) = Sheet1.Cells(2, 17) '政治面目
Sheet1.Cells(15, 1) = Sheet1.Cells(3, 17) '政治面目
Sheet1.Cells(16, 1) = Sheet1.Cells(4, 17) '政治面目
Sheet1.Cells(14, 2) = Sheet1.Cells(2, 18) '入党时间
Sheet1.Cells(15, 2) = Sheet1.Cells(3, 18) '入党时间
Sheet1.Cells(16, 2) = Sheet1.Cells(4, 18) '入党时间
Sheet1.Cells(14, 3) = Sheet1.Cells(2, 19) '职称等级
Sheet1.Cells(15, 3) = Sheet1.Cells(3, 19) '职称等级
Sheet1.Cells(16, 3) = Sheet1.Cells(4, 19) '职称等级
Sheet1.Cells(14, 4) = Sheet1.Cells(2, 20) '职称时间
Sheet1.Cells(15, 4) = Sheet1.Cells(3, 20) '职称时间
Sheet1.Cells(16, 4) = Sheet1.Cells(4, 20) '职称时间
Sheet1.Cells(14, 5) = Sheet1.Cells(2, 21) '现学历
Sheet1.Cells(15, 5) = Sheet1.Cells(3, 21) '现学历
Sheet1.Cells(16, 5) = Sheet1.Cells(4, 21) '现学历
Sheet1.Cells(14, 6) = Sheet1.Cells(2, 22) '毕业时间
Sheet1.Cells(15, 6) = Sheet1.Cells(3, 22) '毕业时间
Sheet1.Cells(16, 6) = Sheet1.Cells(4, 22) '毕业时间
Sheet1.Cells(14, 7) = Sheet1.Cells(2, 23) '毕业院校
Sheet1.Cells(15, 7) = Sheet1.Cells(3, 23) '毕业院校
Sheet1.Cells(16, 7) = Sheet1.Cells(4, 23) '毕业院校
Sheet1.Cells(14, 8) = Sheet1.Cells(2, 24) '所学专业
Sheet1.Cells(15, 8) = Sheet1.Cells(3, 24) '所学专业
Sheet1.Cells(16, 8) = Sheet1.Cells(4, 24) '所学专业
Sheet1.Cells(20, 1) = Sheet1.Cells(2, 25) '联系电话
Sheet1.Cells(21, 1) = Sheet1.Cells(3, 25) '联系电话
Sheet1.Cells(22, 1) = Sheet1.Cells(4, 25) '联系电话
Sheet1.Cells(20, 2) = Sheet1.Cells(2, 26) '身份证号
Sheet1.Cells(21, 2) = Sheet1.Cells(3, 26) '身份证号
Sheet1.Cells(22, 2) = Sheet1.Cells(4, 26) '身份证号
Sheet1.Cells(20, 3) = Sheet1.Cells(2, 27) '籍贯
Sheet1.Cells(21, 3) = Sheet1.Cells(3, 27) '籍贯
Sheet1.Cells(22, 3) = Sheet1.Cells(4, 27) '籍贯
Sheet1.Cells(20, 4) = Sheet1.Cells(2, 28) '进入本单位时间
Sheet1.Cells(21, 4) = Sheet1.Cells(3, 28) '进入本单位时间
Sheet1.Cells(22, 4) = Sheet1.Cells(4, 28) '进入本单位时间
Sheet1.Cells(20, 5) = Sheet1.Cells(2, 29) '校长任职时间
Sheet1.Cells(21, 5) = Sheet1.Cells(3, 29) '校长任职时间
Sheet1.Cells(22, 5) = Sheet1.Cells(4, 29) '校长任职时间
k = k + 1
End If
If Sheet2.Cells(i, 1) = "" Then i = 200
Next i
End Sub
Private Sub CommandButton2_Click()
End Sub