faye59

¦^´_ 10# s7659109

    ¥Hno1¬°¨Ò²Ä2¦C¦Ü²Ä12¦C³£¬O¦P²Õ,¨ä¤¤dÄæcr(­É¤è),dr(¶U¤è),½T¹ê¥H:aÄæbÄæ¤ÎdÄ欰§PŪ­n¥ó

°Ñ¦Ò§AªºªþÀÉ
1.¦P²Õ¼Ð¦P¤@½s¸¹(±ø¥ó¬°a:b:d¬Û¦P)
2.§Æ±æµ²ªG(±ø¥ó¬°a:b¬Û¦P)
§Úªº²z¸Ñ¬O³o¼Ë...
¨Ì·Ó§Aªº§Æ±æµ²ªGdÄæ¦ì¨S¦³°Ñ¦Òªº±ø¥ó...
dr cr¤£ºÞ­þ­Ó³£¤@¼ËÂkÃþ¦P²Õ¡A
a»Pb¦¨¥ß´NÂkÃþ¦P²Õ¤F¡C

­É3#¤j¤jµ{§Ç­×§ï¡A
³o¼Ë´N¸ò§A"§Æ±æµ²ªG"¤@¼Ë¤F!?

1. Sub NumberCode()
   
2.     Dim i%, Str$, ArrStr$
   
3.     i = 2
   
4.     ArrStr = "" '²MªÅ¤w°O¿ý¨ìªº±ø¥ó
   
5.     Do Until Range("C" & i) = ""
   
6.         '±NAÄæ¡BBÄæ¡BDÄæ¦X¨Ö¬°¤@­Ó¦r¦ê§@¬°±ø¥ó
   
7.         Str = Range("A" & i) & Range("B" & i) '& Range("D" & i)
   
8.         '­Y¸Ó±ø¥ó¥¼°O¿ý¹L¡A«h°O¿ý¤§¡C
   
9.         If InStr("," & ArrStr & ",", "," & Str & ",") = 0 Then ArrStr = ArrStr & "," & Str
   
10.         '¼´¥XStr¦b°}¦CArrStr¤¤ªº¯Á¤Þ­È
    
11.         Range("F" & i) = "No. " & UBound(Split(Split(ArrStr, Str)(0), ","))
    
12.         i = i + 1
    
13.     Loop
    
14. End Sub

½Æ»s¥N½X

s7659109

¥i¥H¤F,¦ý¦pªG¶W¹L¦Ê¸Urow,¦p¦óÀu¤Æ,¥[§Ö³t«×,¦pªþÀÉ®×

a5007185

¦^´_ 12# s7659109

¦pªG¬O¤W¦Ê¸Uªº¡A
§Ú·Q¦pªG¬O³z¹LExcelÁÙ¬O»Ý­n¤@ÂI®É¶¡¡A
§Ú¤£¤Ó²M·¡§A­ì©l¸ê®Æ¤W¦Ê¸Uµ§¬O¤°»ò¼Ëªºª¬ªp¡A
¦ý¬O§Ú±N§A­ì¥»ªº½d¨Ò¥Î¦Û°Ê¶ñº¡¦ÜExcel³Ì¤j¦æ¼Æ 1,048,576¡A
¸ÕµÛ¹B§@ªºµ²ªG¤j­P¤Wªá¤F§Ö¨â¤ÀÄÁªº®É¶¡¡A
§Ú·Q¦pªGÁٻݭn´î¤Ö¹B§@®É¶¡¡A
¥i¯à§A»Ý­n¦Ò¼{¨ä¥L»y¨¥ªº¨ó§U¡A
³o¼Ë¥i¯à¹ï©ó§A¨ÓÁ¿¤ñ¸û¹ê¥Î¡C

¥t¥~§Ú·Q½T©w¤@¤U§AªþÀɪº¥Î·N¡A
§Ú¤£¤Ó²M·¡§A·Qªí¹Fªº¬O¤°»ò¡A
§Ú¤£ª¾¹D³o©M§A­ì¥»ªº°ÝÃD¦³¤°»òÃöÁp©Ê¡C

s7659109

»Ý­n»Pvlookup·f°t¨Ï¥Î¡AÁÂÁ§AªºÀ°¦£¡C

s7659109

¤]ÁÂÁÂÅÞ¿è¤j¤j¡C