level 7
预言:下楼将会出现函数公式高手用VLOOKUP函数完美解决你的问题.
2018年02月08日 08点02分
2
我用过vlookup函数,效果不好,同名的话,只能成功配对1个。静等高手~~
2018年02月08日 09点02分
@AlphaZeng =VLOOKUP(D1&DATEVALUE(F1),IF({1,0},A1:A10&DATEVALUE(C1:C10),B1:B10),2)
2018年02月08日 09点02分
level 7
楼主 解决了么? 没有解决 找我! 我做个教程发给你! 教你如何解决!
V×
18221837937
安志斌
2018年02月08日 09点02分
6
吧务
level 15
图1g2输入数组公式,输入时按ctrl+shift+enter完成.
=index图2!b:b,match(d2&text(f2,"emmdd"),图2!a$2:a$100&mid(图2!b$2:b$100,7,8),))
向下填充
2018年02月08日 12点02分
7
level 11
'工作表名称:图1-sheet1,图2-sheet2
Option Explicit
Sub test()
Dim arr, dic, t, i
Set dic = CreateObject("scripting.dictionary")
With Sheets("sheet2")
arr = .Range("a2:c" & .Cells(Rows.Count, "a").End(xlUp).Row)
For i = 1 To UBound(arr, 1)
t = arr(i, 1) & Format(arr(i, 3), "yyyymmdd")
dic(t) = CStr(arr(i, 2))
Next
End With
With Sheets("sheet1")
arr = .Range("d2:f" & .Cells(Rows.Count, "d").End(xlUp).Row)
For i = 1 To UBound(arr, 1)
t = arr(i, 1) & Format(arr(i, 3), "yyyymmdd")
arr(i, 1) = IIf(dic.exists(t), dic(t), "??")
Next
.[g2].Resize(UBound(arr, 1), 1) = arr
End With
End Sub
2018年02月08日 13点02分
8
请教:这些代码怎么使用?我是菜鸟~~
2018年02月09日 02点02分
@AlphaZeng 宏安全级别设置一下,低或者中(允许宏运行)
2018年02月09日 07点02分
level 1
这么多。。。。用数组公式可以弄出来的。。能将相同姓名但是不同身份证显拉出来的。。。没得附件。。有附件的话我给你弄好公式在发给你。。
2018年02月09日 07点02分
11