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

½Ð°Ý«e½ú­Ì¦p¦ó¤À§å±Nªí®æ­pºâ¹L«á§å¦¸¶K¨ì·sªº¤u§@ªí¤W

½Ð°Ý«e½ú­Ì¦p¦ó¤À§å±Nªí®æ­pºâ¹L«á§å¦¸¶K¨ì·sªº¤u§@ªí¤W

·Q½Ð±Ð¦U¦ì«e½ú­Ì VBAªº¼gªk «á½ú¥u·|¥Î¿ý»s¥¨¶°ªº¤è¦¡°µ ¦ý¤@ª½¥X²{°ÝÃD ¦n¹³¬O´`Àôªº¦a¤è¥X²{¿ù»~
¥Ñ©ó¸ê®ÆÀɮ׫ܦh ¥Î¥¨¶°ªº¤è¦¡·|¤è«K«Ü¦h ·Ð½Ð«e½ú­Ì¯àÀ°¦£¸Õ¸Õ ·P¿E¤£ºÉ


        ¨BÆJ¤@        ¿ï¨úA1:J10
        ¨BÆJ¤G        ½Æ»s¨ì¤u§@ªí2ªºA1:J10
        ¨BÆJ¤T        ½Æ»s¤u§@ªí2ªºN1:N30(N1:N30¬O¦³¤½¦¡­pºâªºÄæ¦ì)
        ¨BÆJ¥|        ¶K¤W¤u§@ªí3 B2:B31ªºÄæ¦ì PS :¦]¬°«e­±¤u§@ªí¤GªºN1:N30¦³¤½¦¡ ©Ò¥H¶K¤W®É­n¶K¤W"­È"
³oÃä´N¶}©l´`Àô               
                ¿ï¨úA11:J20
                ½Æ»s¨ì¤u§@ªí2ªºA1:J10
                ½Æ»s¤u§@ªí2ªºN1:N30(N1:N30¬O¦³¤½¦¡­pºâªºÄæ¦ì)
                ¶K¤W¤u§@ªí3 C2:C31ªºÄæ¦ì PS :¦]¬°«e­±¤u§@ªí¤GªºN1:N30¦³¤½¦¡ ©Ò¥H¶K¤W®É­n¶K¤W"­È"
                ª½¨ì¨S¦³¸ê®Æ°±¤î¹Bºâ
               
        ·Q­n°µªº¥\¥Î¬O¤À§O­pºâ¤u§@ªí1 A:JÄæ¦ìªº10µ§¸ê®Æ¸g¹L¤u§@ªí2¹Bºâ¹L«á§â­È¶K¨ì¤u§@ªí3¤W       
[attach]27147[/attach]
[attach]27148[/attach]
[attach]27149[/attach]

[attach]27150[/attach]

Sub TEST()
Dim R&, i&, N&
R = [¤u§@ªí1!A1].Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To R Step 10
¡@¡@Sheets("¤u§@ªí1").Cells(i, 1).Resize(10, 10).Copy [¤u§@ªí2!A1]
¡@¡@N = N + 1
¡@¡@Sheets("¤u§@ªí3").Cells(2, N + 1).Resize(30) = [¤u§@ªí2!N1:N30].Value
Next i
End Sub

TOP

ÁÂÁ¦U¦ì  ¥Ø«e¥Î¿ý»sªº¤w¸g¥i¥H§¹¦¨¤F

TOP

½×¾Â¦n¹³©Ç©Çªº ¦A¸É¤@¦¸
[attach]27147[/attach]
[attach]27148[/attach]
´£°Ý¤T.png
2017-5-8 12:29


´£°ÝÀÉ®×.rar (42.26 KB)

´£°ÝÀÉ®×.rar (42.26 KB)

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD