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

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

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

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

¦^´_ 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

TOP

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

brrerr.jpg (201.56 KB)

brrerr.jpg

max

TOP

¦^´_ 3# user999


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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD