- ©«¤l
- 34
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-7-11
- ³Ì«áµn¿ý
- 2016-12-2
|
¦^´_ 2# ã´£³¡ªL
Dim R&, C, N&, Brr, Arr, 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")
ª©¥D¤j¤j¦n
§Ú¬Ý¤£À´¬õ¦âªº¦a¤è¡A¥i¥H½Ð§A±Ð¾Ç¶Ü
arr=A1:E8ªº½d³ò
¬°¤°»ò¤Sn«·s©w¸qbrrÅܼƩO Redim
Ubound¬OÔ£·N«ä?
¤Wºô¬d¹L¹ê¦b¬Ý¤£¤ÓÀ´
brr( xxx,xxx)¤S¬OÔ£·N«ä?
CreateObject("Scripting.Dictionary") ³o¬O¤°»ò·N«ä©O
·PÁ¤j¤j |
|