- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2010-9-7 22:32 ½s¿è
¦^´_ 10# oak0723-1
¨ä¹ê¦b¤W±ªºµ{¦¡¤¤¤§©Ò¥H¥i¥H¥Î ReDim ¨Ó«·s°t¸m Arr ¬°¤@°}¦C¬O¦]¬° Arr ªì©l«Å§i®É¬O Variant «¬ºA,
©Ò¥H¥¦¤]¥i¥Hªí¥Ü¬°¬O¤@Ó(©|¥¼©w¸q¤j¤pªº)°}¦C.
§A¥i¥H¶}±ÒExcel VBA ªº»¡©ú¨Ó¬Ý,
¥¦¹ï©ó ReDim ªº ¸ÑÄÀ¦p¤U :
ReDim ³¯z¦¡¬O¥Î¨Ó "¨M©w" ©Î "«·s¨M©w" °ÊºA°}¦Cªº¤j¤p
¦^´_ 12# oak0723-1
§Úı±o¤£ºÞ¬O .CurrentRegion ÁÙ¬O .End(3) ¨âªÌ¦bµ{¦¡°õ¦æ¨ì¸Ó¦æ®É³£·|¬OÓ½T©wªº½d³ò,
¤§©Ò¥H ReDim Preserve arr(1 To 3, 1 To r) ·|»¡¥¦¬OӰʺA°}¦C,
¬O¦]¬°¥¦¦b¤§«e¤w¸g¦³³Q©w¸q¹L°}¦C¤j¤p¤F, (¦]¦b°j°é¤¤·|«½Æ°õ¦æ¸Ó±Ôz¼Æ¦¸)
¤§«áÁÙ»Ýn¦] r ȦÓÅܰʨä¤j¤p¬G¦Ó¬O°ÊºA°}¦C.
¦Ü©ó
ReDim arr(1 To UBound(rng), 1 To 10)
«h¦]¸Ó±Ôz¤§«e¥u¦³ Dim arr ¤@Ó±Ôz, (¤]¥iµø¬° Variant ÅܼÆ)
¨ä¹ê¨Ã¨S¦³¯uªº©ú½T©w¸q¹L arr ³oÓ°}¦Cªº¤j¤p,
ª½¨ì¸Ó±Ôz¤~¬O¯uªº±N¨ä©w¸q¬°¤@Ó "©T©w¤j¤p" ªº°}¦C. |
|