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

[µo°Ý] ÀH¾÷§ïÅÜ°}¦C¤j¤p

[µo°Ý] ÀH¾÷§ïÅÜ°}¦C¤j¤p

¦]¬°¤£ª¾¹D¸ê®Æ¨Ó·½ªº¤j¤p,¦ý§ï¦¨myarray(a, 1)·|¥X¿ù


'Dim a As Integer
'a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1


Dim myarray(1783, 1) ¥i¥H§ï¦¨ Dim myarray(a, 1)


For i = 0 To 1783

    For j = 0 To 1
   
      
      myarray(i, j) = Cells(i + 1, j + 1)
   
    Next j
   
Next i

¥»©«³Ì«á¥Ñ kimbal ©ó 2013-6-11 13:47 ½s¿è

¦^´_ 1# xandertco

°ÊºA°}¦C
  1. Sub test()
  2. Dim a As long
  3. a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1

  4. Dim myarray()
  5. ReDim myarray(a, 1)
  6. For i = 0 To a
  7.     For j = 0 To 1
  8.       myarray(i, j) = Cells(i + 1, j + 1)
  9.     Next j
  10. Next i
  11. End Sub
½Æ»s¥N½X
¥t¥~¸ò¥D°ÝÃDµLÃöªº´£¥Ü:¤W­±integer À³Âনlong, ¦pªG¦æ¼Æ¦h©ó3¸U¦hªº¸Ü,integer·|¥X°ÝÃDªº.
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁª©¥Dªº¸Ñ»¡!

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD