- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2025-7-5
|
·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] |
|