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

¦p¦ó¨Ï¥ÎExcel VBA ±NÀx¦s®æ¤ºªº­È»PÃC¦â¦P¨B

¦^´_ 4# jsc0518

¨S¦³³W«ß®É¥Î  For Each y In Array( ... )
Sub Macro2()
    Range("D1:AH2").Select
    Selection.Copy

    For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
        Range("D" & y).Select
        ActiveSheet.Paste
    Next
End Sub


Sub Macro3()
    For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
        Range("D1:AH2").Copy Range("D" & y)
    Next
End Sub
{...} ªí¥Ü»Ý­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