½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?
- ©«¤l
- 107
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 138
- ÂI¦W
- 0
- §@·~¨t²Î
- vista
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2024-12-22
|
½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?
½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?
½Ð¬ÝªþÀÉ.........ÁÂÁ«ü¾É |
-
-
Book1.rar
(4.71 KB)
|
¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¥»©«³Ì«á¥Ñ oobird ©ó 2010-11-21 17:31 ½s¿è
=INDEX(H$22:H$24,MATCH(TRUE,NOT(ISERROR(FIND(","&B10&",",","&G$22:G$24&","))),0))
|
|
|
|
|
|
|
- ©«¤l
- 107
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 138
- ÂI¦W
- 0
- §@·~¨t²Î
- vista
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2024-12-22
|
¦^´_ 2# oobird
¥i¥H¤F......ÁÂÁª©¥D«ü¾É |
|
¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤
|
|
|
|
|
- ©«¤l
- 1
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
-
- µù¥U®É¶¡
- 2011-3-7
- ³Ì«áµn¿ý
- 2015-12-7
|
|
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-12-5
|
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:
°õ¦æµ²ªG:
Option Explicit
Sub TEST()
Dim Brr, Crr, Y, Z, i&, T1$, T2$
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO ¦r¨å
Brr = Range([B10], [B65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HBÄæÀx¦s®æȱa¤J
Crr = Range([H22], [G65536].End(xlUp))
'¡ô¥OCrrÅܼƬO ¤Gºû°}¦C,¥HG~HÄæÀx¦s®æȱa¤J
For i = 1 To UBound(Crr)
'¡ô³]¶¶°j°é (©î¸Ñ²Õ§O¹ïÀ³¦¨û(GÄæ),¸Ë¤JY¦r¨å¤¤)
T1 = Crr(i, 1): T2 = Crr(i, 2)
'¡ô¥OÅܼƩӸ˰j°é°}¦CÈ
If (T1 = "") * (T2 = "") Then GoTo i01
'¡ô©¿²¤ªÅ®æ
For Each Z In Split(T1, ",")
'¡ô³]³v¶µ°j°é!¥OZÅܼƬO (GÄæ)È¥H","¤À³Îªº¤@ºû°}¦C¤l
If Z = "" Then GoTo z01
'¡ô¦pªGZÅܼƬOªÅ¦r¤¸!´N¸õ¨ìz01¼Ð¥Ü¦ì¸mÄ~Äò°õ¦æ
Y(Z) = T2
'¡ô¥O¥HZÅܼƷíkey,item¬OT2ÅܼÆ(²Õ¦W)
z01: Next
i01: Next
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é (±N±ý¿ëÃѪº¦¨û·íkey,¬dY¦r¨å±o¨ì²Õ¦W)
Brr(i, 1) = Y(Brr(i, 1) & "")
'¡ô¥O¬dY¦r¨å±o¨ì²Õ¦WÂл\±¼ì¨ÓBrrªº¦¨û
Next
[L10].Resize(UBound(Brr), 1) = Brr
'¡ô¥OBrr°}¦Cȱq[L10]¶}©l¼g¤JÀx¦s®æ¤¤
Set Y = Nothing: Erase Brr, Crr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|