ikboy

Sub ZZ()
Dim ar, br
ar = Array("ªR1", "ªR2", "ªR3", "ªR4", "ªR5", "ªR6", "ªR7", "ªR8", "ªR9", "ªR10")
For i = 0 To UBound(ar)
    Select Case i
    Case 0 To UBound(ar) - 1
        With Sheets(ar(i))
            .Rows(2).Copy .Rows("3:101")
            br = .Rows("3:4")
            .Rows("3:101") = br
        End With
    Case UBound(ar)
        With Sheets(ar(i))
            .Rows(2).Copy .Rows("201:301")
            br = .Rows("201:301")
            .Rows("201:301") = br
        End With
    End Select
Next
End Sub

ikboy

¦^´_ 3# lcctno


Sub ZZ()
Dim ar, br, MyRng
Myrng = sheets("Data" ).[L4] & ¡§:¡¨ & sheets("Data" ).[M4]        Rem[°_©l¦C¼Æ]="Data"¤§L4     [µ²§ô¦C¼Æ]="Data"¤§M4      
ar = Array("ªR1", "ªR2", "ªR3", "ªR4", "ªR5", "ªR6", "ªR7", "ªR8", "ªR9", "ªR10")
For i = 0 To UBound(ar)
    Select Case i
    Case 0 To UBound(ar) - 1
        With Sheets(ar(i))
            .Rows(2).Copy .Rows(myrng)
            br = .Rows(myrng)
            .Rows(myrng) = br
        End With
    Case UBound(ar)
        With Sheets(ar(i))
            .Rows(2).Copy .Rows("201:301") Rem ¦¹³B¦p¦¹Ãþ±À
            br = .Rows("201:301")
            .Rows("201:301") = br
        End With
    End Select
Next
End Sub

ikboy

¬Ý¨ì¤F°ÝÃD¬O¥N½X¤¤ªº¤¤¤å¦r·½©ó¤£¦P»y¨t, ¦b±zªºÀɮפ¤¶Ã½X¤F, ½Ð¤â°Ê§ó§ï
ar = Array("ªR1", "ªR2", "ªR3", "ªR4", "ªR5", "ªR6", "ªR7", "ªR8", "ªR9", "ªR10")