[µo°Ý] ¥u©w°}¦C A()¬Y´XÄæ¨ì¥t¤@°}¦C B()

user999

½Ð±Ð½Ñ¦ì¥ý¶i
        ¦³¤Gºû°}¦C A()    Äæ¦ì 5 Äæ   ¦C¬°1....¨ìn
¥i¦³«ü©w¥t¤Gºû°}¦C B() =A()¤¤Äæ¦ì¬°  ²Ä 2Äæ¤Î ²Ä4Äæ ,¦C¬°¦P1...¨ìn  
ªº¤èªk ,½Ð±Ð¾É¤@¤U,   
ÁÂÁÂ!

lpk187

¦^´_ 1# user999
³o¬O§A­nªº¶Ü¡H

1. Public Sub test()
   
2. Dim Brr()
   
3. Arr = [A1:E70]
   
4. ReDim Preserve Brr(1 To UBound(Arr, 1), 1 To 2)
   
5. For I = 1 To UBound(Arr, 1)
   
6.     Brr(I, 1) = Arr(I, 2)
   
7.     Brr(I, 2) = Arr(I, 4)
   
8.     I = I + 1
   
9. Next
   
10. End Sub

½Æ»s¥N½X

user999

¦^´_ 2# lpk187
·PÁ±zªºÀ°¦£
¤£¹Lbrr() ¸õ1¦C§ì¸ê®Æ  ¦p¹Ï
½Ð¦bÀ°¦£¤@¤U,ÁÂÁÂ!

lpk187

¦^´_ 3# user999


    ¤£¦n·N«ä¡I
I=I+1³o¦æ§R±¼§a¡I­ì¥»¥Î¨ä¥L¤è¦¡°µªº¡A§Ñ¤F§R°£±¼¡I

user999

ÁÂÁ±z,
§Ú¤]¦n°ª¿³¦Û¤v
µo²{­«½Æ¦a¤è
,¤£¹L±zÁÙ¬O¤ñ¸û§Ö!
·P¿E¤F!

GBKEE

¦^´_ 5# user999
¤]¥i¥H¤£¶]°j°é.

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Arr(), Brr(1 To 2)
   
4.     Arr = [A1:E70].Value
   
5.     Brr(1) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 2)
   
6.     Brr(2) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 4)
   
7. End Sub

½Æ»s¥N½X