mark15jill

¦^´_ 2# boyao


ª½±µ¥Î ²Î¦X ¥h°Ê§@
Private Sub CommandButton4_Click()
    For og = 2 To151  '151¥i·s¼W
        Select Case og
Case 2 To 51   '°Ï¬q
            Sheet1.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet1.Range("a" & og + 9, "m" & og + 9).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 52 To 101
            Sheet2.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet2.Range("a" & og - 42, "m" & og - 42).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 102 To 151
            Sheet3.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet3.Range("a" & og - 92, "m" & og - 92).Value = Sheet4.Range("a" & og, "m" & og).Value
        End Select
    Next og

   
End Sub

mark15jill

¦^´_ 6# boyao


    = =  §A¬O­n·J¾ã¨ì¸ê®Æ®w?
¥i¬Oªþ¥ó¤º¼gªº«o¬O¤À¶}..