VBAマクロ12行間隔でコピーして貼り付けます

-2

セルの範囲（A10：Z25）をコピーし、最後の行または範囲の行Zの下に12行貼り付ける必要があります。 1000回。 12行（範囲の最後のセルから） 12行（範囲の最後のセルから）ペースト16行VBAマクロ12行間隔でコピーして貼り付けます

ジャンプ 16行を貼り付けジャンプコピー16行：すなわち

など。1000回。

おかげ

出典

2016-10-13 frogbottle

にStackOverflowへようこそ。これは無料のコード作成サービスではありませんが、仲間のプログラマー（および志望者）が独自のコードを書くのを手伝っています。 [良い質問をする方法]（http://stackoverflow.com/help/how-to-ask "How To"）のヘルプトピックをお読みください。また、[ツアー]（http://stackoverflow.com/tour "Magical Mystery Tour"）を利用してバッジを獲得することもできます。その後、達成したいタスクを完了するために、これまでに書いたVBAコードで質問を更新してください。 –

Sub Test() 

Dim i As Integer 
Dim intRowno As Integer 

intRowno = 1 

For i = 1 To 1000 

    Range("A10:Z25").Copy Cells(intRowno, 2) 
    intRowno = ((i + i) * 12) + 1 

Next 


End Sub

出典

2016-10-13 13:57:04

VBAマクロ12行間隔でコピーして貼り付けます

答えて

関連する問題