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

¦p¦ó§PÂ_¬°¦P¤@²Õ

¦p¦ó§PÂ_¬°¦P¤@²Õ

½Ð°Ý¡A¦p¦ó¨ÌA,B¤ÎDÄ欰±ø¥ó¡A§PÂ_¬O§_¬°¦P¤@²Õ¡H

¬¡­¶Ã¯1.zip (8.66 KB)

§Æ±æ¤ä«ù!

¦^´_ 1# s7659109

®Ú¾Úªþ¥ó§Ú¬Ý¤£¤ÓÀ´@@

²Ä2¦C¡B²Ä12¦C¡B²Ä13¦C ¬°¤°»ò³£¬ONO1?

¹ï©ó"¦P¤@²Õ"¦³©ú½Tªº©w¸q¶Ü?
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¥»©«³Ì«á¥Ñ a5007185 ©ó 2018-7-31 13:53 ½s¿è

¦^´_ 1# s7659109

§Ú¬O¥ÎVBA³B²zªº¡A
½Ð°Ñ¦Ò¥H¤Uµ{¦¡½X¡C
  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

TOP

¥»©«³Ì«á¥Ñ s7659109 ©ó 2018-7-31 15:37 ½s¿è

°ÝÃD:
±ø¥ó:·íaÄæbÄæ¤ÎdÄæ¤@­P®É,¤~µ¹¦P¤@½s¸¹,´ú¸Õerror

0731.zip (22.67 KB)

§Æ±æ¤ä«ù!

TOP

¦^´_ 1# s7659109

¶ñ¤JF2¡A¨ä¾l¤U©Ô
  1. =IF(COUNTIFS($A$1:A1,A2,$B$1:B1,B2,$D$1:D1,D2)>0,LOOKUP(1,0/(($A$1:A1=A2)*($B$1:B1=B2)*($D$1:D1=D2)),$F$1:F1),"NO"&SUMPRODUCT(1/COUNTIF($F$1:F1,$F$1:F1)))
½Æ»s¥N½X

TOP

¦]­ì©l¸ê®Æ¦³8000µ§,§Æ±æ¥Hvba¸Ñ¨M
§Æ±æ¤ä«ù!

TOP

¨ç¼Æ´ú¸Õ¤´error
§Æ±æ¤ä«ù!

TOP

¦^´_ 7# s7659109
§Aµ¹¿ù±ø¥ó¤F¡A§A¦A¬Ý²M·¡¤@ÂI¡C¡C¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

0731.zip (22.67 KB)

§Æ±æ¤ä«ù!

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD