ML089

回復 4# jsc0518

沒有規律時用  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