ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¸ê®Æ¤ñ¹ï°ÝÃD,¦p¦ó±N¦hµ§¸ê®Æ¹ïÀ³¨ì¤@­ÓÀx¦s®æ¤¤¨Ã¥Î"¡B"¤À¹j

[µo°Ý] ½Ð°Ý¸ê®Æ¤ñ¹ï°ÝÃD,¦p¦ó±N¦hµ§¸ê®Æ¹ïÀ³¨ì¤@­ÓÀx¦s®æ¤¤¨Ã¥Î"¡B"¤À¹j

¥»©«³Ì«á¥Ñ happycoccolin ©ó 2012-7-20 17:43 ½s¿è

«¢Åo~~~

½Ð±Ð¤@¤U,¥Ø«e¦³¸ê®Æ¹ïÀ³ªº°ÝÃD¦p¤U~~­Y³æ¯Â¨Ï¥ÎVLOOKUP°µ,¥u·|Åã¬O¤@µ§¸ê®Æ...¤£ª¾ÁÙ¯à«ç»ò¼g@@

ÁÂÁÂ~~~~

SHEET1
A                                   B                   C
1234-5678        11111        aa¡Bbb¡Bcc¡Bdd        <-¦p¦ó¦bCÄæ¦ìÅã¥ÜSHEET2¸Ì­±,AÄæ¦ì¹ïÀ³ªº¸ê®Æ,¥Î"¡B"¤À¹j,¹ïÀ³Äæ¦ì¤£¤@©w,¦³¥i¯à¨ì10­Ó
1234-5678        11111        aa¡Bbb¡Bcc¡Bdd       
1234-5678        11111        aa¡Bbb¡Bcc¡Bdd       
1234-5678        11111        aa¡Bbb¡Bcc¡Bdd       
2345-6789        22222        ee¡Bff¡Bgg       
2345-6789        22222        ee¡Bff¡Bgg       
2345-6789        22222        ee¡Bff¡Bgg       
3456-7890        33333                                     <-­Y¨S¦³¸ê®Æ«hÅã¥ÜªÅ¥Õ
3456-7890        33333               
3456-7890        33333               
3456-7890        33333               
3456-7890        33333               
3456-7890        33333       

SHEET2
A                                  B
1234-5678        aa
1234-5678        bb
1234-5678        cc
1234-5678        dd
2345-6789        ee
2345-6789        ff
2345-6789        gg
3456-7890
3456-7890
3456-7890
3456-7890
123.zip (7.02 KB)

¥»©«³Ì«á¥Ñ zz5151353 ©ó 2012-7-27 12:17 ½s¿è

¨ç¼Æ¦³Ãø«×,½Ð°Ñ¦Ò¦Û©w¸q¨ç¼Æ§a

¨ç¼Æ¬O¥i¥H°µ¨ì  ¦ý¬O¦³¤@°ÝÃD ¨S¿ìªk²£¥Í,¾·¸¹,¨§¸¹µ¥µ¥.....
{=PHONETIC(OFFSET(Sheet2!B$1,MATCH(A1,Sheet2!A:A,)-1,,COUNTIF(Sheet2!A:A,A1)))}

123.rar (8.29 KB)

300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# zz5151353


    «¢Åo~~~~~§Ú¤£¯à¤U¸üÀÉ®×­C~~¤]ÁÂÁ¦^ÂÐ~~§Ú·|¤F¸Ñ¤@¤U¤º®e¸Õ¸Õ¬Ý~ÁÂÁ³á!!!

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-8-3 10:54 ½s¿è

¦^´_ 3# happycoccolin
' §Ú´À zz5151353  ¤j¤j¦^µª©pªº°ÝÃD¡G
  1. Function zz(rng As Range, Page As Range, FVal) As String
  2.     Dim SN()
  3.     For i = 1 To rng.Count
  4.         If rng(i) = FVal Then
  5.             ReDim Preserve SN(s)
  6.             SN(s) = Page(i): s = s + 1
  7.         End If
  8.     Next
  9.     zz = Join(SN, "¡B")
  10. End Function
½Æ»s¥N½X

TOP

¦^´_ 4# c_c_lai


    «z!!§Ú·|ªá®É¶¡¬Ý¤@¤U~~~ÁÂÁ±zªº¦^Âгá!!!!!

TOP

¦^´_ 1# happycoccolin

¨Ï¥Î¨ç¼ÆÃø¥H¤@¨B¨ì¦ì¡A«á­±¼W¥[¤@¨Ç»²§UÄæ¦ì¥ý±N¦U­È¨D¥X¡ACÄæ¦A±ND¡BE¡BF¡B....¦UÄæ¦r¦ê¦X¨Ö°_¨Ó
±Ä¥Î¦Û©w¨ç¼Æ¬O¤ñ¸û²³æ®e©ö
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# c_c_lai


¤j¤j§A¦n~~

¬ðµM·Q¨ì~­YSheet2 BÄ椧¤¤¦³­«½Æªº~¬O§_¥i¥H¥u¨ú¤@¦¸´N¦n,¤£­n­«½Æ¥X²{©O~

¨Ò¦p

§Ú¨Ï¥Î¦¹¤èªk«á CÄæ·|¥X²{

aa¡Bbb¡Bcc¡Bdd¡Baa¡Baa¡Baa

¬O§_¥i¥H¥u¥X²{
aa¡Bbb¡Bcc¡Bdd

123-0507.zip (13.08 KB)

TOP

¦^´_ 7# happycoccolin
¬O§_¦p¦¹¡H
  1. Function zz(rng As Range, Page As Range, FVal) As String
  2.     Dim SN(), flag As Boolean
  3.    
  4.     For i = 1 To rng.Count               '  rng.Count = 14
  5.         If rng(i) = FVal Then            '  rng(1) = "1234-5678"¡B
  6.             If s > 0 Then
  7.                 flag = True
  8.                 For j = 0 To s - 1
  9.                     If (SN(j) = Page(i)) Then
  10.                         flag = False
  11.                         Exit For
  12.                     End If
  13.                 Next j
  14.             Else
  15.                 flag = True
  16.             End If
  17.             
  18.             If flag Then
  19.                 ReDim Preserve SN(s)
  20.                 SN(s) = Page(i): s = s + 1   '  Page(1) = "aa"
  21.             End If
  22.         End If
  23.     Next
  24.     zz = Join(SN, "¡B")
  25. End Function

  26. Sub Test()
  27.     With Sheets(2)
  28.         str1 = zz(.Range("A1:A14"), .Range("B1:B14"), "1234-5678")
  29.     End With
  30.     MsgBox str1
  31. End Sub
½Æ»s¥N½X
123-0507.rar (15.94 KB)

TOP

¦^´_ 8# c_c_lai


    ¬Oªº!!!!!¤w¸g´ú¸Õ¦¨¥\!!ÁÂÁ¤j¤j!!!!!!

TOP

¦^´_ 8# c_c_lai


    ªO¤j§A¦n,
·Q½Ð±Ð¤@¤U,­Y¬O¤Ï±À,­ì¥»CÄæ¦ì¤º¸ê®Æ(¥Ñ³rÂI¤À¶})¦³¼Æ­Ó,AÄæBÄæ¸ê®Æ¬Û¦P,­n¦p¦ó§âBÄæ¸ê®Æ­Ó§O¨ú¥X©O?

¦p¤U

A                                  B                 C
1234-5678        11111        aa,bb,cc,dd
2345-6789        22222        ee,ff,gg
3456-7890        33333        hh,ii
-----------------------------------
©î¦¨¦p¤U
A                                  B                 C
1234-5678        11111        aa
1234-5678        11111        bb
1234-5678        11111        cc
1234-5678        11111        dd
1234-5678        11111        aa
1234-5678        11111        aa
1234-5678        11111        aa
2345-6789        22222        ee
2345-6789        22222        ff
2345-6789        22222        gg
3456-7890        33333        hh
3456-7890        33333        ii
123-0808.rar (15.94 KB) §¨ÀÉ

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD