a5007185

¦^´_ 1# s7659109

§Ú¥ý´y­z¤@¤U§Aªº°ÝÃD¡A
§A¬Ý¤@¤U¬O¤£¬O³o¼Ë¡H

¥ý¥HAÄæ»PBÄ檺¸ê°T°µ¤À²Õ¡A
­Y²Õ¤ºDÄæ¥X²{¨âºØ¥H¤Wªº¸ê°T´NHighlight¡H

a5007185

¦^´_ 4# naruto018


    ³Ì«á­±¨M©w®æ¦¡¤Æ¥i¥Hª½±µ§PÂ_GÄæ¬O§_¬°"x"

a5007185

¦^´_ 6# s7659109

§ÚVBA¬O©ÓÄò¤§«eªºCode¡A
½Ð°Ñ¦Ò
0801.zip (18.47 KB)

¤U¸ü¦¸¼Æ: 5

2018-8-13 17:11

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)
   
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.     ConsistentJudgment ArrStr, UBound(Split(ArrStr, ","))
    
15. End Sub
    
16. 
    
17. Sub ConsistentJudgment(ArrStr, R%)
    
18.     Dim i%, Str$, N%, StrMeno$
    
19.     ReDim ArrMemo(R) As String
    
20.     '¬ö¿ýMemo¸ê®ÆºØÃþ
    
21.     i = 2
    
22.     Do Until Range("C" & i) = ""
    
23.         Str = Range("A" & i) & Range("B" & i)
    
24.         StrMeno = Range("D" & i)
    
25.         N = UBound(Split(Split(ArrStr, Str)(0), ","))
    
26.         If InStr("," & ArrMemo(N) & ",", "," & StrMeno$ & ",") = 0 Then ArrMemo(N) = ArrMemo(N) & "," & StrMeno
    
27.         i = i + 1
    
28.     Loop
    
29.     '¦^õX§P©wµ²ªG
    
30.     i = 2
    
31.     Do Until Range("C" & i) = ""
    
32.         Str = Range("A" & i) & Range("B" & i)
    
33.         StrMeno = Range("D" & i)
    
34.         N = UBound(Split(Split(ArrStr, Str)(0), ","))
    
35.         If UBound(Split(ArrMemo(N), ",")) > 1 Then Range("G" & i) = "x"
    
36.         i = i + 1
    
37.     Loop
    
38. End Sub

½Æ»s¥N½X