«ç»ò§ìÀx¦s®æ¸Ì"¯S§Oªº¤é´Á"
- ©«¤l
- 21
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- winXP
- ³nÅ骩¥»
- 1.0
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-4
- ³Ì«áµn¿ý
- 2018-3-8
|
«ç»ò§ìÀx¦s®æ¸Ì"¯S§Oªº¤é´Á"
¤p§Ì·Qn§ì¨úsheet¸Ì ¨CÓ¤ë²Ä¤@Ó¤é´Á¥H¤Î³Ì«á¤@Ó¤é´Á
¨Ã¦s¨ì°}¦C¸Ì ½Ð°Ý³oÓ¸Ó«ç»ò¼g
ÁÂÁÂ~ |
|
¤pµæ³¾¤@Ó ½Ð¦h«ü±Ð~
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# kasl - Option Explicit
- Sub Ex()
- Dim D As Object, AR(), i, S, xMax As Double, xMin As Double
- Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
- With Sheets("¶i³õ°O¿ýªí")
- i = 3 '±qA3 ¶}©l
- S = 0
- Do While .Cells(i, "A") <> ""
- D(Mid(.Cells(i, "A"), 1, 6)) = "" '«e6¦ì: ¦~¥÷¤ë¥÷
- ReDim Preserve AR(0 To S)
- AR(S) = .Cells(i, "A")
- If Mid(.Cells(i, "A"), 1, 6) <> Mid(.Cells(i + 1, "A"), 1, 6) Then
- xMax = Application.WorksheetFunction.Large(AR, 1)
- xMin = Application.WorksheetFunction.Small(AR, 1)
- D(Mid(.Cells(i, "A"), 1, 6)) = Array(Mid(.Cells(i, "A"), 1, 6), xMin, xMax)
- S = 0
- Else
- S = S + 1
- End If
- i = i + 1
- Loop
- End With
- With Sheets("Sheet1") '¥t¤@¤u§@ªí
- .Range("a1").Resize(D.Count, 3) = Application.Transpose(Application.Transpose(D.Items))
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- winXP
- ³nÅ骩¥»
- 1.0
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-4
- ³Ì«áµn¿ý
- 2018-3-8
|
·PÁÂ~ ¤p§Ì¨Ó¬ã¨s¤@¤U¾ãÓµ{¦¡ªº¹B§@¹Lµ{ |
|
¤pµæ³¾¤@Ó ½Ð¦h«ü±Ð~
|
|
|
|
|
- ©«¤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
|
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
¸ê®Æªí:
µ²ªGªí:
Option Explicit
Sub TEST()
Dim Brr, Y, R&, R1&, i&, T$, Tm$, xR As Range
Set Y = CreateObject("Scripting.Dictionary")
Set xR = Range([C2], Cells(Rows.Count, "A").End(xlUp)): Brr = xR
For i = 2 To UBound(Brr)
If i = 2 Then
R = R + 1: Brr(1, 1) = "¤ë¥÷": Brr(1, 2) = "³Ì¦¤é´Á": Brr(1, 3) = "³Ì«á¤é´Á"
End If
T = Brr(i, 1): Tm = Val(Brr(i, 1)) \ 100
If Y(Tm) = "" Then
R = R + 1: R1 = R: Y(Tm) = R1
Brr(R1, 1) = Tm: Brr(R1, 2) = T: Brr(R1, 3) = T
Else
R1 = Y(Tm)
If T < Brr(R1, 2) Then Brr(R1, 2) = T
If T > Brr(R1, 3) Then Brr(R1, 3) = T
End If
Next
With Workbooks.Add
.Sheets(1).[A1].Resize(R, 3) = Brr
End With
Set Y = Nothing: Set xR = Nothing: Erase Brr
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|