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

[µo°Ý] ¦p¦óPaste Array? (¦³ªþ¤WDemo)

[µo°Ý] ¦p¦óPaste Array? (¦³ªþ¤WDemo)

¥»©«³Ì«á¥Ñ ui123 ©ó 2017-9-21 11:35 ½s¿è

½Ð±Ð~¥Ø«e¹J¨ì¤@­Ó°ÝÃD¡A¦A±NEXCEL ½d³ò©ñ¤Jarray «á·Q¦A¨ú¥X©ñ¦^¬Y­Ó½d³ò¡A¦ý¬OµLªk¶K¤W¡A¦³¤H¹J¹L¤@¼Ëªº°ÝÃD¶Ü?
javascript:;

Sub past()

Dim arrj(1, 3, 30)


For i = 1 To 30

arrj(1, 1, i) = Sheets(1).Range("A" & i + 1 & ":F" & 250 + i)

Next

Sheets(1).Rang("J2:O251") = arrj(1, 1, 1)
Sheets(1).Rang("Q2:V251") = arrj(1, 1, 2)

End Sub

Test past array_v2.zip (66.56 KB)

Demo

Range ¤Ö¤F¤@­Óe

TOP

¦^´_ 2# ikboy

·P®¦Seafood,Æg¹ÄSeafood

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD