Question

Excel怎样用VBA查找指定内容并返回值

我想要在图1表中查找E列出生日期中2002开头的行，并且在

中返回该行相对应的年级（B）和性别（D）列 。如图2，用VBA的话要怎么写？





Answer 1

假设图1在sheet1，图2在sheet2，请参考

sub test ()
RowCount=sheets(1).[E90000].end(xlup).row
for i =1 to RowCount
   if sheets(1).range("E" & i).value like "*2002*" then
      sheets(2).range("a" & i).value=sheets(1).range("b" & i).value
      sheets(2).range("b" & i).value=sheets(1).range("d" & i).value
  end if
next
end sub

Answer 2

G2输入公式
=IF(LEFT(E2,4)*1=2002,"Yes","")
下拉
对G列进行自动筛选
将筛选结果直接复制粘贴到sheet2
删掉不要的列
即可

追问

小数据量可以这样操作，但是数据一旦多了，手动下拉、复制、粘贴效率就低了，这个表每天会需要更新很多数据量，所以要做成一键生成的按钮来提高效率

追答

权当每次操作时，要保留上一次的记录

Sub test()
a = Range("E65536").End(xlUp).Row
Set dic = CreateObject("Scripting.Dictionary")
For i = 2 To a
    If Left(Cells(i, 5), 4) = "2002" Then
        x = Cells(i, 2) & "," & Cells(i, 4) & "," & Cells(i, 5)
        dic(x) = ""
    End If
Next
For Each d In dic.keys
    n = Sheets(2).Range("a65536").End(xlUp).Row + 1
    Sheets(2).Cells(n, 1).Resize(1, 3) = Split(d, ",")
Next
MsgBox ("提取完毕,请勿重复操作！")
End Sub

Answer 3

这个必须用VBA？函数就可以轻易做到了啊

追问

怎么做呢

追答

如果sheet1的出生日期格式是本就用这个函数
sheet2
C1=index(sheet1!E:E,small(if(left(sheet1!E:E,4)="2002",row(sheet1!E:E),""),row(A1))
B1=index(sheet1!D:D,small(if(left(sheet1!E:E,4)="2002",row(sheet1!E:E),""),row(A1))
A1=index(sheet1!B:B,small(if(left(sheet1!E:E,4)="2002",row(sheet1!E:E),""),row(A1))
数组公式ctrl+enter+shift同时摁