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』
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
