[µo°Ý] ¦b¨S¦³±Æ§Çªº±¡§Î¤U,¬Û¦P²£«~½s¸¹¡A¯d¤U³Ì«á¤@­Ó´N¦n

PJChen

¦U¦ì¤j¤j¦n,

½Ð±Ð.....
§Ú·Q¦bEÄæ¤U¤@­Ó¤½¦¡¡A¦b¨S¦³±Æ§Çªº±¡§Î¤U,ÅýBÄæ¬Û¦P²£«~½s¸¹¡A¯d¤U³Ì«á¤@­Ó´N¦n.
¨Ò¦p:00021025025ªº³Ì«á¤@­Ó¬Û¦P½s¸¹¦bB24,¥u¦bB24Åã¥Ü²£«~½s¸¹,¨ä¾l´NªÅ¥Õ

¶i³f³æ¤é³øªí2.rar (22.56 KB)

¤U¸ü¦¸¼Æ: 25

2014-11-20 19:00

luhpro

¦U¦ì¤j¤j¦n,

½Ð±Ð.....
§Ú·Q¦bEÄæ¤U¤@­Ó¤½¦¡¡A¦b¨S¦³±Æ§Çªº±¡§Î¤U,ÅýBÄæ¬Û¦P²£«~½s¸¹¡A¯d¤U³Ì«á¤@­Ó´N¦n ...
PJChen µoªí©ó 2014-11-20 19:01

¤½¦¡§Ú¤£·|,
­Y§ï¥Î Excel VBA ­Ë¬O«Ü®e©ö°µ¨ì¦¹¥\¯à.

1. Sub nn()
   
2.   Dim lRow&
   
3.   Dim vD, vA
   
4.   
   
5.   Set vD = CreateObject("Scripting.Dictionary")
   
6.   lRow = Cells(Rows.Count, 5).End(xlUp).Row
   
7.   Range(Cells(5, 5), Cells(lRow, 5)).Clear
   
8.   lRow = 5
   
9.   Do While Cells(lRow, 2) <> ""
   
10.     vD(CStr(Cells(lRow, 2))) = lRow
    
11.     lRow = lRow + 1
    
12.   Loop
    
13.   
    
14.   For Each vA In vD
    
15.     Cells(vD(vA), 5) = vA
    
16.   Next
    
17. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# luhpro

ÁÂÁ¤j¤jªº¦^ÂÐ,°õ¦æ¤W¨S¦³°ÝÃD,¦ý¦]¬°ÀÉ®×°µ§¹«á­nµ¹³\¦h¤H¬Ý,§Ú¤ñ¸û¾á¤ß§Ñ¤F§R°£¥¨¶°....
·Qª¾¹D¦³¨S¦³¤H·|¥Î¤½¦¡ªº?

PJChen

¦^´_ 3# PJChen

½Ð°Ý²Ä1¼Óªº±¡§Î,¦³¤½¦¡¥i¥H¥Î¶Ü?

owen06

¦^´_ 4# PJChen

    ¸Õ¬Ý¬Ý
    E5=IF(COUNTIF(B:B,B5)=1,B5,IF(ROW()=MATCH(B5,B:B,2),B5,""))
    ¤½¦¡©¹¤U©Ô

PJChen

¦^´_ 5# owen06

±z¦n,

·PÁ±zªº¦^´_,§Ú¸Õ¤F¤½¦¡,¥¦¦b±Æ§Çªº±¡§Î¤U¨S¦³°ÝÃD,¦ý­Y¨S¦³±Æ§Ç,«h·|¥X¿ù,µLªk¥¿½Tªºshow¥X³Ì«á¤@µ§®Æ¸¹.
½Ð°ÝÁÙ¯à«ç»ò­×¥¿¤½¦¡©O?

samwang

¦^´_ 6# PJChen

E2=IF(COUNTIF(B$2:B2,B2)<COUNTIF(B:B,B2),"",B2)
©¹¤U©Ô¡A½Ð°Ý¬O¤£¬O§A­nªº»Ý¨D?

PJChen

¦^´_ 7# samwang

·PÁ¤j¤j,

§Ú§â¥¦§ï¦¨³o¼Ë,´N¬O§Ú­nªº¤F,¤ÓÁÂÁ¤F...
³o¼Ëªº¤½¦¡¹ï§Ú¨Ó»¡¤Ó¦³¥Î¤F...
=IF(COUNTIF(B$5:B5,B5)<COUNTIF(B:B,B5),"",B5)

jomeow

PJChen¤j¤j§A¦n,

½Ð·Q±Ð.. ¬°¦ó·|¥Î MATCH(B5,B:B,2)?
§Ú¥uª¾¹Dmatch ¥i¥H¥Î -1, 0 , 1...
¦ý¤£©ú¥Õ¥Î2¬O¬°¤°»ò©O?

½Ð±Ð¦U¦ì¤j¤jÀ°¦£¸Ñµª..
^^

¦^´_  PJChen

    ¸Õ¬Ý¬Ý
    E5=IF(COUNTIF(B:B,B5)=1,B5,IF(ROW()=MATCH(B5,B:B,2),B5,""))
    ¤½ ...
owen06 µoªí©ó 2014-11-28 12:29

­ã´£³¡ªL

=IF(ISNA(MATCH(B5,B6:B3000,)),B5,)&""