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

­«½Æ¨Ï¥ÎVBA

­«½Æ¨Ï¥ÎVBA

¦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

²Ä¤@¦æ¦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

TOP

¦^´_ 2# lamwc


¥i§_ªþ¤WÀÉ®×¥B¥[¥H»¡©ú¡AÁÂÁÂ

TOP

¨S¦³ªþ¥ó, °N¯à²q·Q
  1. Selection.resize(2).Filldown
½Æ»s¥N½X

TOP

¦^´_ 2# lamwc

Rs = 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
debug.print  Rs  '  "18:18,38:38,58:58,78:78"
Range(Rs).Select

¨C¦æ¥ý¦L¥X¨ÓÀˬd¬O§_¦³°ÝÃD
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD