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

[µo°Ý] ¦p¦ó¦bsheet1¬d¸ß¸ê®Æ«á¿é¥X¨ìsheet2ªº¯S©w¦ì¸m(³z¹L°}¦C)

·Q½Ð±Ð¤@¤U,°}¦Cªº¥Îªk,°ÝÃD¦pªþµùªº»¡©ú...
'¬°¦ó³o¦æªº1 To m·|¿ù»~
ReDim Preserve arr(1 To m, 1 To UBound(rng, 2))
...
PKKO µoªí©ó 2014-11-18 00:34

ReDim ¥u¯à¼W´î³Ì«á¤@­Ó¬W¼Ð

'³o¬O±Nsheet2±qA1¶}©l¶K¤W,¦p¦ó§ï¦¨±qsheet2ªºBÄæªºNum1+1¶}©l¶K¤W©O?
With Sheets("sheet2").[A1].Resize(UBound(arr) + 1, UBound(arr, 2) + 1)

With Sheets("sheet2").Cells(Num + 1, 2).Resize(UBound(arr) + 1, UBound(arr, 2) + 1)

¤p§Ì­è­èª¦¤å,¥Ø«e¥u¾Ç·|¤F(«D°}¦C¤è¦¡)ªº¤èªk
¦ýÁÙ¬O·Q°Ý¤@¤U¤j¤j­Ì.³oºØ¤è¦¡­n¦p¦ó¥u¶K¤W­È?¦p¦ó¶K¨ì«ü©w ...
PKKO µoªí©ó 2014-11-18 06:30

Àx¦s®æªí¥Ü¤è¦¡:
[Äæ¦W¦C¦W] ¦p [A1]
Cells(¦C¸¹,Äæ¸¹) : Cells(7,2)=[B7]

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD