¦p¦ó§PÂ_¬°¦P¤@²Õ(¶i¶¥°ÝÃD¡^
- ©«¤l
- 248
- ¥DÃD
- 76
- ºëµØ
- 0
- ¿n¤À
- 331
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- kaohsiung
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2020-7-3
|
¦p¦ó§PÂ_¬°¦P¤@²Õ(¶i¶¥°ÝÃD¡^
±ø¥ó:·íaÄæbÄæ¤@P¡A¦ýdÄæ¥X²{¦r¦ê¤£¤@P®É,¼Ð¥Üx¡A¸Ó¦C¼Ð¥Ü¤Ï¶À |
-
-
0801.zip
(16.7 KB)
|
§Æ±æ¤ä«ù!
|
|
|
|
|
¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 1# s7659109
§Ú¥ý´yz¤@¤U§Aªº°ÝÃD¡A
§A¬Ý¤@¤U¬O¤£¬O³o¼Ë¡H
¥ý¥HAÄæ»PBÄ檺¸ê°T°µ¤À²Õ¡A
Y²Õ¤ºDÄæ¥X²{¨âºØ¥H¤Wªº¸ê°T´NHighlight¡H |
|
|
|
|
|
|
- ©«¤l
- 248
- ¥DÃD
- 76
- ºëµØ
- 0
- ¿n¤À
- 331
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- kaohsiung
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2020-7-3
|
¬O¡Aa.bÄ欰¤@²Õ¡]¬Û¦P¦r¦ê¡^¡A¦ýdÄ檺¦r¦ê¤]n¦C¤J¦Ò¼{¡An¤@P¡]¨Ò¡Grows(2:12)³£¬Oa ¥HªÅ¥Õªí¥Ü¡^,¦ýY¦³¤£¦P¡A¥X²{¤Ï¶À»Px´£¥Ü¡A¦prows(13:18)¦³¤£¦PªÌ |
|
§Æ±æ¤ä«ù!
|
|
|
|
|
- ©«¤l
- 91
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 130
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-5-14
- ³Ì«áµn¿ý
- 2020-5-17
|
¦^´_ 3# s7659109
¼Ð¥Üx¡G
G2¶ñ¤J¡A¨ä¾l¤U©Ô- =IF(COUNTIFS(A:A,A2,B:B,B2)=COUNTIFS(A:A,A2,B:B,B2,D:D,D2),"","x")
½Æ»s¥N½X ¼Ð¥Ü¤Ï¶À¡G
®æ¦¡¤Æ±ø¥ó
¨Ï¥Î¤½¦¡¨M©w®æ¦¡¤Æ- =COUNTIFS($A:$A,$A2,$B:$B,$B2)<>COUNTIFS($A:$A,$A2,$B:$B,$B2,$D:$D,$D2)
½Æ»s¥N½X ½d³ò¡GA2:G27 |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 4# naruto018
³Ì«á±¨M©w®æ¦¡¤Æ¥i¥Hª½±µ§PÂ_GÄæ¬O§_¬°"x" |
|
|
|
|
|
|
- ©«¤l
- 248
- ¥DÃD
- 76
- ºëµØ
- 0
- ¿n¤À
- 331
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- kaohsiung
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2020-7-3
|
|
§Æ±æ¤ä«ù!
|
|
|
|
|
¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 6# s7659109
§ÚVBA¬O©ÓÄò¤§«eªºCode¡A
½Ð°Ñ¦Ò
0801.zip (18.47 KB)
- Sub NumberCode()
- Dim i%, Str$, ArrStr$
- i = 2
- ArrStr = "" '²MªÅ¤w°O¿ý¨ìªº±ø¥ó
- Do Until Range("C" & i) = ""
- '±NAÄæ¡BBÄæ¡BDÄæ¦X¨Ö¬°¤@Ó¦r¦ê§@¬°±ø¥ó
- Str = Range("A" & i) & Range("B" & i)
- 'Y¸Ó±ø¥ó¥¼°O¿ý¹L¡A«h°O¿ý¤§¡C
- If InStr("," & ArrStr & ",", "," & Str & ",") = 0 Then ArrStr = ArrStr & "," & Str
- '¼´¥XStr¦b°}¦CArrStr¤¤ªº¯Á¤ÞÈ
- Range("F" & i) = "No. " & UBound(Split(Split(ArrStr, Str)(0), ","))
- i = i + 1
- Loop
- ConsistentJudgment ArrStr, UBound(Split(ArrStr, ","))
- End Sub
- Sub ConsistentJudgment(ArrStr, R%)
- Dim i%, Str$, N%, StrMeno$
- ReDim ArrMemo(R) As String
- '¬ö¿ýMemo¸ê®ÆºØÃþ
- i = 2
- Do Until Range("C" & i) = ""
- Str = Range("A" & i) & Range("B" & i)
- StrMeno = Range("D" & i)
- N = UBound(Split(Split(ArrStr, Str)(0), ","))
- If InStr("," & ArrMemo(N) & ",", "," & StrMeno$ & ",") = 0 Then ArrMemo(N) = ArrMemo(N) & "," & StrMeno
- i = i + 1
- Loop
- '¦^õX§P©wµ²ªG
- i = 2
- Do Until Range("C" & i) = ""
- Str = Range("A" & i) & Range("B" & i)
- StrMeno = Range("D" & i)
- N = UBound(Split(Split(ArrStr, Str)(0), ","))
- If UBound(Split(ArrMemo(N), ",")) > 1 Then Range("G" & i) = "x"
- i = i + 1
- Loop
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2018-8-13 17:33 ½s¿è
Sub NumberCode()
Dim Arr, i&, xD, T$, TC$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D2], [A65536].End(3))
For i = 1 To UBound(Arr)
¡@¡@T = Arr(i, 1) & Arr(i, 2): TC = xD(T)
¡@¡@If TC = "" Then xD(T) = "|" & Arr(i, 4): GoTo 101
¡@¡@If TC <> "|" & Arr(i, 4) Then xD(T) = "²§±`"
101: Next i
For i = 1 To UBound(Arr)
¡@¡@T = Arr(i, 1) & Arr(i, 2): Arr(i, 1) = ""
¡@¡@If xD(T) = "²§±`" Then Arr(i, 1) = "x"
Next i
[G2].Resize(UBound(Arr)) = Arr
End Sub
¡@
¡@ |
|
|
|
|
|
|
- ©«¤l
- 248
- ¥DÃD
- 76
- ºëµØ
- 0
- ¿n¤À
- 331
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- kaohsiung
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2020-7-3
|
ÁÂÁ¤G¦ì¤j¤jªº¦^µª,«e±ªº°ÝÃDok,¦ýÁÙ¦³¥t¤@°ÝÃD:dÄæ,¥Hvlookup¨ú±o¸ê®Æ(¥u·|¤½¦¡,¤w³]¤F); eÄæ0²MªÅ |
-
-
0814.zip
(20.65 KB)
|
§Æ±æ¤ä«ù!
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 9# s7659109
With Range("D2:D" & [A65536].End(3).Row)
¡@¡@.Formula = "=IF(ISNA(VLOOKUP(C2,accnum,2,)),"""",VLOOKUP(C2,accnum,2,))"
¡@¡@.Value = .Value
End With
Range("E:E").Replace 0, "", Lookat:=xlWhole |
|
|
|
|
|
|