求教人事表制作。谁能教下？

wzyqwdl

要求：1.筛选出符合要求的人，最好按照数据多少能自动形成列表的
2.高级筛选的话，公司里的人不会，最好能让他点下拉列表就能选择，然后弹出结果。
3.VLOOKUP只能筛选出找到符合条件的第一条1条数据，而不是所有（包括重复的）符合要求的数据。能否筛选出所有符合条件的数据
4、最好能实现可以多条件，也可以单独条件筛选
5。添加新的信息的话，如果是人名的话，直接跳到最后行，如果是某人的详细情况再添加的话，直接跳到最后列。



详细条件和要求见附件。
谢谢。

[ 本帖最后由 wzyqwdl 于 2010-5-13 20:53 编辑 ]

sunya_0529

原帖由 wzyqwdl 于 2010-5-13 13:44 发表
要求：1.筛选出符合要求的人，最好按照数据多少能自动形成列表的
2.高级筛选的话，公司里的人不会，最好能让他点下拉列表就能选择，然后弹出结果。
3.VLOOKUP只能筛选出找到符合条件的第一条1条数据，而不是所有（ ...

其实录制一段宏，仍然采用高级筛选，设置好条件，一个按钮就搞定了。

1. 
   
2. Private Sub cmdFilter_Click()
   
3. Dim wst As Worksheet
   
4. Application.ScreenUpdating = False
   
5. [A39:I65536].Clear
   
6. For Each wst In ThisWorkbook.Worksheets
   
7.   If wst.Name = [B15] Then
   
8.     wst.[A:H].AdvancedFilter Action:=xlFilterCopy, _
   
9.                              CriteriaRange:=[C14:F15], _
   
10.                              CopytoRange:=[A39]
    
11.   End If
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

实际使用时，修改上面代码中的三个标颜色的单元格引用就可以了：
B15，工作表名称
C14:F15，条件区域所在单元格区域
A39，筛选结果复制的目标区域，左上角单元格

详细效果看附件吧：

wzyqwdl

谢谢呵。我下过来试试看

wzyqwdl

谢谢。完全适用。我到时候改下代码就行了。由于涉及到20多个条件。我慢慢专研吧。谢谢呵。