­«½Æ¨Ï¥ÎVBA

lamwc

¦U¦ì¦n¡A·Q½Ð±Ð¤@¤U¦p¦ó¨Ï¥ÎVBA¦b¦Uªíªº©³¤U·s¼W¤@¦C¨Ã¤U©Ô¤W¦Cªº¤½¦¡¡A¦P®É¦b¤½¦¡·í¤¤³]©w¥N¼Æ¥H«K«áÄò¦A¦¸·s¼W¨Ï¥Î¡AÁÂÁ¡C

¥Ø«eºc·Q¦p¤U¡A­è±µÄ²¨S¦h¤[¡A§Æ±æ¦³¤j¯««ü±Ð«ü±Ð¡C



----------------------------------------------------------
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
Dim x As Integer
Dim y As Integer
x = 18
y = 1


    ActiveWindow.SmallScroll Down:=18
    Range("x:x,x+19+1*y:x+19+1*y,x+38+2*y:x+38+2*y,x+57+3*y:x+57+3*y").Select
    Range("A75").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
    Range("A(x-1):E(x-1)").Select
    Range("E(x-1)").Activate
    Selection.AutoFill Destination:=Range("Ax-1:Ex"), Type:=xlFillDefault
    Range("Ax-1:Ex").Select

    Range("A(x+19+1*y-1):F(x+19+1*y-1)").Select
    Range("F(x+19+1*y-1)").Activate
    Selection.AutoFill Destination:=Range("A(x+19+1*y-1):F(x+19+1*y)"), Type:=xlFillDefault
    Range("A(x+19+1*y-1):F(x+19+1*y)").Select
   
    Range("A(x+38+2*y-1):G(x+38+2*y-1)").Select
    Range("G(x+38+2*y-1)").Activate
    Selection.AutoFill Destination:=Range("A(x+38+2*y-1):F((x+38+2*y)"), Type:=xlFillDefault
    Range("A(x+38+2*y-1):F(x+38+2*y)").Select
   
    Range("A(x+57+3*y-1):H(x+57+3*y-1)").Select
    Range("H(x+57+3*y-1)").Activate
    Selection.AutoFill Destination:=Range("A(x+57+3*y-1):H(x+57+3*y)"), Type:=xlFillDefault
    Range("A(x+57+3*y-1):(x+57+3*y)").Select


End Sub

lamwc

²Ä¤@¦æ¦C §ÚÀ³¸Ó¤w½Õ¾ã¦¨¦X²zªº®æ¦¡ ¦ý¨ÌµM¶]¤£°Ê   

Range(x & ":" & x, x + 19 + 1 * y & ":" & x + 19 + 1 * y, x + 38 + 2 * y & ":" & x + 38 + 2 * y, x + 57 + 3 * y & ":" & x + 57 + 3 * y).Select