­ã´£³¡ªL

Sub NumberCode()
Dim Arr, i&, xD, T$, TC$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D2], [A65536].End(3))
For i = 1 To UBound(Arr)
¡@¡@T = Arr(i, 1) & Arr(i, 2):  TC = xD(T)
¡@¡@If TC = "" Then xD(T) = "|" & Arr(i, 4): GoTo 101
¡@¡@If TC <> "|" & Arr(i, 4) Then xD(T) = "²§±`"
101: Next i
For i = 1 To UBound(Arr)
¡@¡@T = Arr(i, 1) & Arr(i, 2): Arr(i, 1) = ""
¡@¡@If xD(T) = "²§±`" Then Arr(i, 1) = "x"
Next i
[G2].Resize(UBound(Arr)) = Arr
End Sub
¡@
¡@

­ã´£³¡ªL

¦^´_ 9# s7659109


With Range("D2:D" & [A65536].End(3).Row)
¡@¡@.Formula = "=IF(ISNA(VLOOKUP(C2,accnum,2,)),"""",VLOOKUP(C2,accnum,2,))"
¡@¡@.Value = .Value
End With
Range("E:E").Replace 0, "", Lookat:=xlWhole

­ã´£³¡ªL

¦^´_ 11# s7659109


VLOOKUP¤£¥Î±Æ§Ç
­ì¤½¦¡·|»Ý­n±Æ§Ç, ¬O¬Ù¤F²Ä¥|­Ó°Ñ¼Æ(TRUE/FALSE)
VLOOKUP(§ä¬d­È, °Ï°ì, Äæ¦ì, TRUE/FALSE)  ¥ÎFALSE´N¤£¶·±Æ§Ç(ºë½T¤ñ¹ï)

VLOOKUP(C2,accnum,2,FALSE)
VLOOKUP(C2,accnum,2,0)
VLOOKUP(C2,accnum,2,)
¤T­Ó¤½¦¡¹D²z¬Û¦P

­ã´£³¡ªL

¦^´_ 13# s7659109

TC = xD(T)  
>> ¨ú¦r¨åÀɪº ITEM ­Èµ¹ TC

If TC = "" Then xD(T) = "|" & Arr(i, 4): GoTo 101  
>> ¦pªGTC¬OªÅ­È, ªí¥Ü©|¥¼±a¤JxD, «hµ¹¤©DÄ檺­È¬°ITEM,
    DÄæ¤å¦r«e¥["|", ¬O¦Ò¼{DÄæ¥i¯à¬OªÅ¥Õªº,  ´N·|»P IF TC = "" ¤S²£¥Í´`Àô

If TC <> "|" & Arr(i, 4) Then xD(T) = "²§±`"
>> ¤ñ¸û TC »P ·í«e¦CDÄæ¤å¦r, ­Y¤£¬Û¦P, §Y¬O²§±`