- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 114
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-5-17
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-15 15:28 ½s¿è
¦^´_ 3# sandra_wang
Ãö©óL2¬°3ªº½s½X¬O§_n¦³3ÓMAX
¸Õ¸Õ¬Ý- Sub Ex()
- Dim A As Range, MyStr$
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d2 = CreateObject("Scripting.Dictionary")
- k = 182
- With Sheets("DATABASE")
- Do Until .Cells(1, k) = ""
- Set A = .Cells(1, k)
- d(A.Value) = A.Resize(5, 1).Value
- k = k + 1
- Loop
- End With
- With Sheets("OUTPUT")
- k = 9
- Do Until .Cells(1, k) = ""
- MyStr = Replace(.Cells(1, k), "_", "")
- Set A = .Cells(2, k).Resize(3, 1)
- s = 1
- For j = 1 To 3
- mykey = IIf(j = 1, "Max_", IIf(j = 2, "Min_", "Middle_"))
- For i = 1 To A(j)
- d1(mykey) = d1(mykey) + 1
- d2(MyStr & "_" & s) = d(mykey & d1(mykey))
- s = s + 1
- Next
- Next
- k = k + 1
- Loop
- k = 3
- For Each ky In d2.keys
- .Cells(6, k) = ky
- .Cells(70, k).Resize(5, 1) = d2(ky)
- k = k + 1
- Next
- End With
- End Sub
½Æ»s¥N½X |
|