怎么根据条件从表中把符合条件的信息剪贴出来呢？

天涯一梦

我想根据条件表里面的姓名从明细表中把这些人的信息筛选并剪贴出来粘在目标表中怎么实现呢？ 不知道什么原因高级筛选用不了又不能更改表头格式怎么办呢？

3190496160

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("条件")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:a" & ws)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    Next i
End With
Dim br()
arr = Sheets("明细表").UsedRange
ReDim br(1 To UBound(ar), 1 To UBound(arr, 2))
For i = 7 To UBound(arr)
    If Trim(arr(i, 2)) <> "" Then
        If d.exists(Trim(arr(i, 2))) Then
            n = n + 1
            For j = 1 To UBound(arr, 2)
                br(n, j) = arr(i, j)
            Next j
        End If
    End If
Next i
If n = "" Then MsgBox "没有符合条件的数据": Exit Sub
With Sheets("目标表")
    .UsedRange.Offset(6) = Empty
    .[a7].Resize(n, UBound(arr, 2)) = br
End With
End Sub

3190496160

信息表.rar (29.28 KB, 下载次数: 7)

2020-3-8 17:54 上传

点击文件名下载附件

天涯一梦

谢谢 姓名有可能重复 我要是想根据员工编码或者社保账号查找怎么弄呢

Charmander

用VLOOKUP函数可以实现,

4个参数
=VLOOKUP(找什么,在哪找,结果所在列数,查找方式)

目标表D7单元格的公式:=VLOOKUP($B7,明细表!$B$7:$W$132,COLUMN(D3)-1,0)

1.$B7  固定列B列
2.数据所在区域:  
        在明细表中选中需要的数据,可以选中第一个数据(B7单元格)后按快捷键Ctrl+Shift+→→ +↓
        行列要固定死,快捷键F4
3.结果所在列:
        查找的姓名是B列,为选中区第1列;
        性别是D列,对应的参数自然是3

        设置colnum(单元格)获取单元格所在列
        D3单元格对应的4, 此时:COLUMN(D3)-1=4-1
        E3单元格的第三个参数就会对应5,        5-1                          
        =>目的:动态获取参数来保证可以横向拖拉填充
4.查找方式:
        False:精确匹配 ;可以简写0
        True:近似匹配 ;可以简写1 =>用于阶梯查找的情况

姓名重复的话在目标表里查找只能找到第一个符合信息的条件,
用员工编码或社保账号就能对应了.
对应的查找项要改成 $E7 和 $F7
查找区域和第三个参数的-1也要相应作出改变

天涯一梦

谢谢啊 MATCH函数和这个COLUMN有啥区别啊

Charmander

你想问的应该是MATCH和VLOOKUP的区别吧,
COLUMN是获取单元格所在列数的函数.

{
MATCH:用于在指定区域内按指定方式查询与指定内容所匹配的单元格位置
        =>(确定列表中某个值的位置)
VLOOKUP:用于指定区域内查询指定内容所对应的匹配区域内单元格的内容
        =>(按列查找补全信息)
}

3个参数:
Match(找什么,在哪找,查找方式)
1.查找值

2.指定区域:
        必须是单列多行或单行多列

3.查找方式:
        1 :查找<=查找值的最大值位置              前提:指定区域升序排列
        例:
        A1=20
        A2=30
        A3=50
        查找40所在的位置 =MATCH(40,A1:A3,0)  返回单元格区域A1:A3最接近的最小值(30)的位置2

        0 : 查找完全等于查找值的位置 ,没有就报错           指定区域任意顺序排序
        例:
        A1=50
        A2=20
        A3=30
        查找20所在的位置 =MATCH(20,A1:A3,0)  返回位置2 ;
        查不存在的数40就会报错
       
        -1:查找>=查找值的最小值位置           前提:指定区域降序排列   
        例:
        A1=50
        A2=30
        A3=20
        查找40所在的位置 =MATCH(40,A1:A3,-1)  返回单元格区域A1:A3最接近的最小值(50)的位置1