ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦h¦æ¸ê®Æ¦X¨Ö¬°¤@¦æ

¦^´_ 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³ò
¬°¤°»ò¤S­n­«·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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD