求助：将人员信息表提取出离职、入职。。信息

chris_xxt

如何在黄色栏里用vlookup或其他函数公式从“人员信息表”中
提取出分类信息







谢谢

yfan17

B25单元格输入如下数组公式，下拉右拉：

1. =INDEX(人员信息表!$A:$K,SMALL(IF(人员信息表!$K$3:$K$50=$A$24,ROW($3:$50),4^8),$A25),MATCH(B$24,人员信息表!$A$2:$K$2,))

复制代码

注意统一标题行内容和人员信息表!$A$2:$K$2匹配，否则公式中INDEX的最后一个参数需手工输入数字如4表示返回人员信息表!$A:$K中第4列的内容即姓名列。

dhslxx

看下这个可以让你一劳永逸地解决问题，5分钟制作自己的档案管理系统，不会编程也疯狂http://club.excelhome.net/thread-778395-1-1.html[/url]

小zhi

1. Sub 人员信息导出()
   
2.     Dim sht, sht1 As Worksheet, i, n, m, x, y, z As Integer
   
3.     Set sht = ThisWorkbook.Worksheets(1)
   
4.     Set sht1 = ThisWorkbook.Worksheets(2)
   
5.     For i = 3 To sht1.Cells(Rows.Count, 11).End(xlUp).Row
   
6.         For n = 24 To sht.Cells(Rows.Count, 1).End(xlUp).Row
   
7.             If sht.Cells(n, 1).Value = sht1.Cells(i, 11).Value Then
   
8.                 Select Case sht.Cells(n, 1).Value
   
9.                     Case Is = "入职人员"
   
10.                     m = m + 1
    
11.                     sht.Cells(n + m, 2).Value = sht1.Cells(i, 4).Value
    
12.                     sht.Cells(n + m, 3).Value = sht1.Cells(i, 5).Value
    
13.                     sht.Cells(n + m, 4).Value = sht1.Cells(i, 3).Value
    
14.                     sht.Cells(n + m, 5).Value = sht1.Cells(i, 10).Value
    
15.                     sht.Cells(n + m, 6).Value = sht1.Cells(i, 9).Value
    
16.                     Case Is = "离职人员"
    
17.                     x = x + 1
    
18.                     sht.Cells(n + x, 2).Value = sht1.Cells(i, 4).Value
    
19.                     sht.Cells(n + x, 3).Value = sht1.Cells(i, 5).Value
    
20.                     sht.Cells(n + x, 4).Value = sht1.Cells(i, 3).Value
    
21.                     sht.Cells(n + x, 5).Value = sht1.Cells(i, 10).Value
    
22.                     sht.Cells(n + x, 6).Value = sht1.Cells(i, 9).Value
    
23.                     Case Is = "调入人员"
    
24.                     y = y + 1
    
25.                     sht.Cells(n + y, 2).Value = sht1.Cells(i, 4).Value
    
26.                     sht.Cells(n + y, 3).Value = sht1.Cells(i, 5).Value
    
27.                     sht.Cells(n + y, 4).Value = sht1.Cells(i, 3).Value
    
28.                     sht.Cells(n + y, 5).Value = sht1.Cells(i, 10).Value
    
29.                     sht.Cells(n + y, 6).Value = sht1.Cells(i, 9).Value
    
30.                     Case Is = "调出人员"
    
31.                     z = z + 1
    
32.                     sht.Cells(n + z, 2).Value = sht1.Cells(i, 4).Value
    
33.                     sht.Cells(n + z, 3).Value = sht1.Cells(i, 5).Value
    
34.                     sht.Cells(n + z, 4).Value = sht1.Cells(i, 3).Value
    
35.                     sht.Cells(n + z, 5).Value = sht1.Cells(i, 10).Value
    
36.                     sht.Cells(n + z, 6).Value = sht1.Cells(i, 9).Value
    
37.                 End Select
    
38.             End If
    
39.         Next
    
40.     Next
    
41. End Sub

复制代码

zbapllo

谢谢，先收藏。。。