EXCELのマクロのシートを指定する方法

質問

下記にあるEXCELのマクロは、以前こちらのサイトで教えて頂いたマクロです。

私の質問の仕方がまずかったのですが、シートが指定ではなくて、次のシートとなっています。

これを、１列の元データがシート２で新しく貼り付ける場所をシート１という風に変更したくていろいろやってみましたが、EXCELのマクロ自体、初心者で全然できませんでした…。

どなたか教えて頂けないでしょうか？よろしくお願いします。

下記のマクロは

【Ｅｘｃｅｌ２００３でＡ列に１行にあるデータ（半角英数字）を次のシートに、１行ずつコピーして、それを５列に振り分けするというマクロです（ただし、コピーは２つずつの時もあります。）

元データ（これをシート２にしたい）
●Ａ列　Ｂ列　Ｃ列
　１
　２
　３
　４
　５
　・
　・

加工後　（シート１に貼り付けたい）
●Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列
　　１　　 １　　　２　　　２　　　３
　　３　 　４　 　４　　　５　　　５　

『sub macro1()
　dim i as long, j as long, k as long
　dim n, m
　on error resume next
　k = application.inputbox("duplication", type:=1)
　if k = 0 then exit sub
　activesheet.next.range("A:E").clearcontents
　for n = 1 to range("A65536").end(xlup).row
　　for m = 1 to k
　　　activesheet.next.cells(j + 1, i + 1).value = cells(n, "A").value
　　　i = (i + 1) mod 5
　　　j = iif(i = 0, j + 1, j)
　　next m
　next n
　activesheet.next.select
end sub』

回答No.1

keithin · ベストアンサー

３箇所でシートを指定しているので，漏れなく直します

sub macro1r1()
　dim i as long, j as long, k as long
　dim n, m
　on error resume next
　k = application.inputbox("duplication", type:=1)
　if k = 0 then exit sub
　worksheets("貼り付け先のシート名").range("A:E").clearcontents
　for n = 1 to range("A65536").end(xlup).row
　　for m = 1 to k
　　　worksheets("貼り付け先のシート名").cells(j + 1, i + 1).value = cells(n, "A").value
　　　i = (i + 1) mod 5
　　　j = iif(i = 0, j + 1, j)
　　next m
　next n
　worksheets("貼り付け先のシート名").select
end sub

忘れずに元データのシートを開いた状態で実行します。

＃また，教わったマクロをアレンジしていて上手く出来なくなったときは，教わった回答からコピーして追加質問するのではなく，あなたが実際に書いてみた（ミスった）マクロをキチンと掲示してご相談としてみてください。
教わったマクロのままであれば(原則)出来てアタリマエなのですから，出来ない様子の情報提供になりません。

お礼

早速、ご回答ありがとうございました！

そうですね。これから質問する時はそうします！
どこが間違っているか見ていただいた方がこれからの勉強になりますよね。

ありがとうございました。