- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-5
|
¤W¶ÇÀÉ®×µLªk¥¿±`¶}±Ò(®æ¦¡¤Ó¦h), ¤j¬ù¼g¤@¤U:ª`·N¤u§@ªí¦WºÙ¬O§_¬Û¦P- Sub TEST()
- Dim R&, C, N&, Arr, Brr, xD, i&, T$
- Sheets("¤u§@ªí2").UsedRange.Offset(1, 0).Clear
- Arr = Range([¤u§@ªí1!A2], [¤u§@ªí1!A65536].End(xlUp)(1, 5))
- ReDim Brr(1 To UBound(Arr), 1 To 8)
- Set xD = CreateObject("Scripting.Dictionary")
- For i = 1 To UBound(Arr)
- T = Arr(i, 1): R = xD(T)
- If R = 0 Then
- N = N + 1: R = N: xD(T) = N
- Brr(R, 1) = Arr(i, 1): Brr(R, 2) = Arr(i, 2): Brr(R, 3) = Arr(i, 3)
- End If
- C = Application.Match(Arr(i, 4), Array("°ê»y", "^¤å", "¼Æ¾Ç", "ª«²z", "¤Æ¾Ç"), 0)
- Brr(R, C + 3) = Arr(i, 5)
- Next i
- [¤u§@ªí2!A2].Resize(N, 8) = Brr
- End Sub
½Æ»s¥N½X |
|