µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ¨ú¤T°Ïªº«½ÆÈ
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
¨ú¤T°Ïªº«½ÆÈ
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ª÷¿ú
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1428 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
1
#
¸õÂà¨ì
»
µoªí©ó 2023-12-14 09:32
|
Åã¥Ü¥þ³¡©«¤l
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:
¤U¸ü
(80.36 KB)
2023-12-14 09:30
°õ¦æµ²ªG:
¤U¸ü
(82.67 KB)
2023-12-14 09:30
Option Explicit
Sub TEST()
Dim Brr, Crr(1 To 100), V&, Z, A, i&, N%, xA As Range
'¡ô«Å§iÅܼÆ,CrrÅܼƬO¤@ºû°}¦C,¯Á¤Þ¸¹1~100
Set Z = CreateObject("Scripting.Dictionary")
'¡ô¥OZÅܼƬO ¦r¨å
Set xA = [B7:K8]
'¡ô¥OxAÅܼƬOª«¥óÀx¦s®æ [B7:K8]
For i = 0 To 2
'¡ô³]¶¶°j°é!¥Oi±q0 ¨ì2
Brr = xA.Offset(i * 3)
'¡ô¥OBrrÅܼƬO ±a¤J°j°é°Ï°ìÀx¦s®æȪº¤Gºû°}¦C
For Each A In Brr
'¡ô³]³v¶µ°j°é!¥OAÅܼƬOBrr°}¦C¸Ìªº°}¦CÈ
If Trim(A) = "" Then GoTo A01 Else V = Val(A)
'¡ô¦pªGAÅܼƥh°£ÀY§ÀªÅ¥Õ¦r¤¸«á¬O ªÅ¦r¤¸!´N¸õ¨ì¼Ð¥ÜA01¦ì¸mÄ~Äò°õ¦æ,
'§_«h´N¥OVÅܼƬO AÅܼÆÂনªº¼ÆÈ
If Z(V) = i Then Z(V) = i + 1
'¡ô¦pªG¥HVÅܼƬdZ¦r¨å¦^¶ÇitemȬO¦P iÅܼÆ,´N¥O¨äitemÈ+1
If Z(V) = 3 Then N = N + 1: Crr(N) = V: Z(V) = 0
'¡ô¦pªG¥HVÅܼƬdZ¦r¨å¦^¶ÇitemȬO3 ,´N¥ONÅܼƲ֥[1,
'¥O²ÄNÅܼÆÓCrr°}¦CȬO ÅܼÆ,¥OZ¦r¨å¸ÌVÅܼÆkey¹ïÀ³ªºitemȬO0
A01: Next
Next
With [B18].Resize(, N)
'¡ô¥H¤U¬OÃö©ó[B18]Àx¦s®æÂX®i¦V¥kNÅܼÆÓÀx¦s®æ°Ï°ìªºµ{§Ç
.Value = Crr
'¡ô¥O¸Ó°Ï°ìÀx¦s®æÈ¥HCrr°}¦Cȱa¤J
.Sort KEY1:=.Item(1), Order1:=1, Header:=2, Orientation:=2
'¡ô¥O¸Ó°Ï°ì°µµL¼ÐÃDªº¾î¦V¶¶±Æ§Ç
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¬°¤H³B¥@n¤p¤ß²Ó¤ß¡A¦ý¤£n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·