§ä¥X°}¦C¥X²{³Ì¦h¤Î¦¸¦h¸ê®Æ
- ©«¤l
- 29
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2021-11-24
|
§ä¥X°}¦C¥X²{³Ì¦h¤Î¦¸¦h¸ê®Æ
¦p¦ó¦b°}¦C¸ê®Æ¤¤ §ä¥X¥X²{³Ì¦h¸ê®Æ ¤Î¦¸¦h¸ê®Æ
¸ê®Æ¤¤¥X²{³Ì¦hªº¬O "¥~¤´Á" ¦³6Ó
¸ê®Æ¤¤¥X²{¦¸¦hªº¬O "ªksÅv" ¦³5Ó
¦ýn¦p¦ó§Ö³t¿z¿ï¥X¨Ó???
§ä°}¦C¥X²{³Ì¦h¤Î¦¸¦h¸ê®Æ.rar (2.31 KB)
|
|
|
|
|
|
|
- ©«¤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
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-5-15 09:43 ½s¿è
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æµ²ªG:
Option Explicit
Sub TEST()
Dim Brr, V, Y, i&, j&, N1&, N2&, T$, P1$, P2$
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO ¦r¨å
Brr = [A2:J10]
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥H[A2:J10]Àx¦s®æȱa¤J°}¦C¤¤
For i = 1 To UBound(Brr, 1)
'¡ô³]¶¶°j°é!i±q1¨ìBrrÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
'(UBound(Brr, 1)¥i¥H²¤Æ¬°UBound(Brr)
For j = 1 To UBound(Brr, 2)
'¡ô³]¶¶°j°é!i±q1¨ìBrr¾î¦V³Ì¤j¯Á¤ÞÄ渹
T = Brr(i, j)
'¡ô¥OTÅܼƬO i°j°é¦Cj°j°éÄæBrr°}¦CÈ
'¥ÎÓÅܼƸ˰}¦CȪº¦n³B:
'1.Åý°}¦CÈ©w¸q¬°¦r¦ê,¯Ç¤J¦r¨å¤£¥²¥["" ¨Ò¦p:Y(Brr(i,j) & "")=""
'2.ÁYµuµ{¦¡½Xªø«×,¦]¬°Brr(i, j)¦b¤UÓµ{§Ç³Q¥Î¤F3¦¸
If T <> "" Then Y(T) = Y(T) + 1
'¡ô¦pªG°}¦CȤ£¬OªÅªº!´N¥O¥HTÅܼƬOkey,item¬O¦Û¨²Ö¥[1
'³o¬On°O¿ý¦PÓkey¥X²{¤F´X¦¸
Next
Next
N1 = Application.Large(Y.items, 1)
'¡ô¥ON1ÅܼƬOY¦r¨å¸Ìitemªº³Ì¤jÈ
N2 = Application.Large(Y.items, 2)
'¡ô¥ON2ÅܼƬOY¦r¨å¸Ìitemªº²Ä¤G¤jÈ
For i = 1 To Y.Count
'¡ô³]¶¶°j°é!i±q1 ¨ìY¦r¨åkey¼Æ¶q
If Y(Y.keys()(i - 1)) = N1 Then P1 = P1 & " " & Y.keys()(i - 1)
'¡ô¦pªG¥Hkey¬d¹ïÀ³item¬O³Ì¤jÈ!´N¥O¸Ókey¯Ç¤JP1¦r¦êÅܼƫá¤è
Next
For Each V In Y.keys
'¡ô³]³v¶µ°j°é!¥OVÅܼƬO Y¦r¨å¸Ìªº¨ä¤¤¤@Ókey
If Y(V) = N2 Then P2 = P2 & " " & V
'¡ô¦pªG¥HVÅܼÆ(key)¬d¹ïÀ³item¬O²Ä¤G¤jÈ!´N¥O¸Ókey¯Ç¤JP2¦r¦êÅܼƫá¤è
Next
MsgBox "²Ä¤@¦h_" & N1 & "¦¸: " & P1 & Chr(10) & _
"²Ä¤G¦h_" & N2 & "¦¸: " & P2
'¡ô¸õ¥X´£¥Üµ¡Åã¥Ü²Õ¦X¦r¦ê
Set Y = Nothing: Erase Brr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 455
- ¥DÃD
- 8
- ºëµØ
- 1
- ¿n¤À
- 480
- ÂI¦W
- 0
- §@·~¨t²Î
- WINS home
- ³nÅ骩¥»
- OFFICE XP
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥Âí
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2015-1-22
|
{=INDIRECT("R"&TEXT(MIN(IF((A$2:J$10"")*(COUNTIF(K$1:K1,A$2:J ...
zz5151353 µoªí©ó 2010-6-2 11:58
(COUNTIF(K$1:K1,A$2:J$10)=0
¤£ÁA¸Ñ³o¬q§@¥Î¬°¦ó,¥i¥H«üÂI¤@¤U¶Ü?
¥þ¥y¦ü¥G¥u§ä¨ì²Ä¤@Ó¥X²{ªº¤å¦r,»P¬O§_¥X²{³Ì¦h¦¸µLÃö
¾ã¥y¬[ºcªº·§©À¦n·¥¤F,¬[ºcȱo±ÀÂË¾Ç²ß |
|
ª¾¤§¬°ª¾¤§¡A¤£ª¾¬°¤£ª¾¡A¸Û¹ê¤]¡I
|
|
|
|
|
- ©«¤l
- 206
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 218
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- OFFICE 365
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2023-6-18
|
¥»©«³Ì«á¥Ñ zz5151353 ©ó 2010-6-2 16:27 ½s¿è
¤p§Ì¤]¨Ó¤@Ó
K2 ¤½¦¡
½Æ»s©¹¤U¤@®æ
{=INDIRECT("R"&TEXT(MIN(IF((A$2:J$10<>"")*(COUNTIF(K$1:K1,A$2:J$10)=0),ROW(A$2:J$10)*1000+COLUMN(A$3:J$10),65536256)),"0C000"),)}
¦A´£¨Ñ¥t¤@«äºû©Î³\¤ñ¸û®e©ö²z¸Ñ
½Ð¬ÝÀɮ׬õ¦â°Ï°ì¦a¤è |
-
-
NEW4.rar
(2.51 KB)
|
300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 1# chwqk
a2:j10©w¸q¦WºÙy
²Ä¤@¦h¦¸ªºÅã¥Ü¦ì¸m©w¸q¬°x
¦pL1¬°²Ä¤@¦h¦¸ªºÅã¥Ü¦ì¸m
L1°}¦C¤½¦¡{=INDIRECT("R"&MOD(MIN(IF(COUNTIF(y,y)=LARGE(COUNTIF(y,y),1),COLUMN(y)*10+ROW(y),"")),10)&"C"&INT(MIN(IF(COUNTIF(y,y)=LARGE(COUNTIF(y,y),1),COLUMN(y)*10+ROW(y),""))/10),0)}
¦pL2¬°²Ä¤G¦h¦¸ªºÅã¥Ü¦ì¸m
L2°}¦C¤½¦¡{=INDIRECT("R"&MOD(MIN(IF(COUNTIF(y,y)=LARGE(COUNTIF(y,y),1+COUNTIF(y,x)),COLUMN(y)*10+ROW(y),"")),10)&"C"&INT(MIN(IF(COUNTIF(y,y)=LARGE(COUNTIF(y,y),1+COUNTIF(y,x)),COLUMN(y)*10+ROW(y),""))/10),0)}
§ä°}¦C¥X²{³Ì¦h¤Î¦¸¦h¸ê®Æ.rar (2.39 KB)
|
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|