エクセルの使用方法で困ってます。

質問

お世話になります。
シート１には、Ａ１からＡ１００にかけて氏名が記載されております。
一方、シート２にはＡ１からＡ５をセルの結合がされており、つまり一つのセルとなっております。Ａ６からＡ１０、Ａ１１からＡ１５以下同様に結合されております。
この場合に氏名をシート１のＡ１をシート２のＡ１からＡ５の結合されたセルへ以下同様に貼り付けたいのですが、私が作業するとシート１のセルから４名飛びに貼り付けとなってしまいます。
一気に貼り付ける方法教えてください。

回答No.1

merlionXX · ベストアンサー

とりあえず以下を試してみてください。

1.Altキー+F11キーでVisualBasicEditorを呼び出します。

2.VisualBasicEditorのメニューから「挿入」、「標準モジュール」で、出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。

'*****ここから下をコピペ*****

Sub test01()
For i = 1 To 100
Sheets("Sheet2").Cells(i * 5, 1).MergeArea.Value = Sheets("Sheet1").Cells(i, 1).Value
Next
End Sub

'*****ここから上をコピペ*****

3.Alt+F11キーでワークシートへもどります。

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（test01）を選択して実行します。

お礼

ありがとうございます。
早速試してみます。
質問と合わせて、自分なりに進めておりました。
やむを得ず、それぞれのシートに１，２，３・・と１００まで入れて、ＬＯＯＫＵＰを利用して作業進めておりましたが、merlionXX様のアドバイスも取り入れてまいります。
これからもご指導お願いします。

回答No.2

imogasi

実験データ
Ａ列
１
２
３
４
・
・
Ｂ列のＢ１：Ｂ５の結合セルに
=INDIRECT("A"&INT((ROW()-1)/5)+1)
と入れる。Ｂ２：Ｂ６の場合から始まる場合も同じ。
＋ハンドルでヒッパ手も良いし、
（Ｂ１：Ｂ５結合）ーー＞ＣＴＲＬ＋Ｃ（コピー）ーー＞
（Ｂ６：Ｂ１００とかＡ列データ行数ｘ５の結合部を）範囲指定
ーー＞ＣＴＲＬ＋Ｖ（貼り付け）
これで結合セルに１、２，３・・とはいりました。
ですからＡ列が任意のすうや文字列でもできます。

お礼

ありがとうございます。
本サイトに質問をｕｐしながら合わせて、進めれる作業は進めながら事務処理を行っております。