エクセルのセル～結合セルへのコピーの仕方を教えて

質問

フォーマットのセルがありますが
結合セルで出来ています
マクロの設定も含まれているようです
Ａの一列の中で上下２つのセルで一つになっています
それが五行あります
左にはエクセルのもともとの枠の番号が１から１０まであって
Ａの縦のセルの数は五行です
そのＡの縦に名簿のセルを例えば５名分貼り付けますと
もともとの結合前のセルに戻って５行貼り付けられてしまいます
左にあるエクセルのもともとの枠の番号ですと１から５までに
貼り付けられるのです
わたしはもともとの結合セルの５つのセルにはめ込みたいのですが
いっぺんには出来ません
一つづつですとできます
なぜなのでしょう

結合セルにまとめてコピーできる方法を教えてください
マクロの設定はくずれてもあらかじめ消してもかまいません
私がしたいのは
コピーして改めて作ったものの印刷だけです

よろしくお願いします

回答No.6

ka_na_de

＃４のka_na_deです。

マクロも作ってみました。
興味があれば、データバックアップ後に試してみてください。

＜機能＞
右横に新しいシートをコピーして、
一行おきに空白行を挿入します。

'＜マクロ＞
Sub test()
　Dim r As Long

　ActiveSheet.Copy after:=ActiveSheet

　Application.ScreenUpdating = False
　For r = Range("A65536").End(xlUp).Row To 2 Step -1
　　Cells(r, "A").EntireRow.Insert
　Next r
　Application.ScreenUpdating = True
End Sub

＜使い方＞
１）名簿データの入ったシートを表示させ、
　　下のシート名のタブの上で右クリック
２）「コードの表示」をクリック
３）左側のプロジェクトエクスプローラーで、
　　VBAProjectのの上で右クリック、「挿入」→「標準モジュール」
　（プロジェクトエクスプローラーが表示されていなければ、
　　上部の「表示」メニューから選択表示できます。）
４）右側に上記のマクロを貼り付けます。
　　実行は、上部の再生マークボタンを押してください。

回答No.5

lavendertone

No.１です。
確かに空白行を作っておかないと順序が変わりますね。
No.4さんの方法だとキレイにできました。

お役に立てなくてごめんなさい。

回答No.4

ka_na_de

マクロを使えば、一行おきに空白行を入れることは簡単です。
しかし、今回はあえて関数で説明します。

改めて確認しますが、名前の列だけではなく
地域とか業種とか複数の列が存在して、
それらも、結合セルの中に貼り付けたいということですね？

だとしたら、
たとえば、コピーする名簿データが
A列～F列にあったとします。
例えば、G1セルに（AA列でもいいのですが）
=IF(MOD(ROW(),2),INDIRECT("A"&INT(ROW()/2+1)),"")
と入力し、以下コピー＆ペースト

次にその横の例えばH１セルに（AB列でもいいのですが）
=IF(MOD(ROW(),2),INDIRECT("B"&INT(ROW()/2+1)),"")
と入力し、以下コピー＆ペースト

次にその横の例えばI１セルに（AC列でもいいのですが）
=IF(MOD(ROW(),2),INDIRECT("C"&INT(ROW()/2+1)),"")
と入力し、以下コピー＆ペースト

これを、必要な列だけ繰り返します。
要は"A"の部分をB、C、D・・・・と置き換えてます。

これで、元データの一行おきのデータができました。
これを必要な部分をコピーして、
貼り付けたいデータの同じ大きさの範囲を選択して、
　　「編集」→「形式を選択して貼り付け」で「値と数値の書式」にして「OK」
にしてください。

この回答で良く分からないとか、
補足内容と違う場合はコメント下さい。

回答No.3

ka_na_de

私もやってみました。
貼り付けはできましたが、名簿の順番が狂いませんか？
私だけだったら、この回答は無視してください。

回避案です。

１）名簿データが別のシートのA列に１行目からあるとして説明します。
　　B列を挿入作成し、B2セルに
　　=IF(MOD(ROW(),2),INDIRECT("A"&INT(ROW()/2+1)),"")
　　と入力し、以降コピー＆ペースト

　　これで、B列に１行おきの名簿データができたと思います。

２）この、B列を選択し、コピー

３）結合セルのあるシートに戻り、A列を選択し、
　　「編集」→「形式を選択して貼り付け」で「値と数値の書式」にして「OK」

補足

ありがとうございます
名案だと思います

つまりセルの結合前の結合分のセルが必要なのですね
今回の場合２行分をあらかじめ用意しておくことが必要なのですね

今回私のやりたい作業ですが
やはり名簿からの移し替えなので
一行分まるまるの中から名前とか地域とか業種とかも必要なので
一セル分の　=IF(MOD(ROW(),2),INDIRECT("A"&INT(ROW()/2+1)),"")
ではなく１行分となるとどう言う
関数式になのでしょうか
よろしくお願いします

回答No.2

koko88okok

他にもやり方があると思いますが、次の手順で可能でした。
（Excel2003）

1) コピー元のセル範囲を選択してコピーします。

2) 貼り付け先のセル範囲を選択して、「編集」→「形式を選択して貼り付け」で、「値と数値の書式」をオンにして「OK」を押します。

お試しください。

補足

すばやい回答ありがとうございます
一番の細くと同じ文章でごめんなさい
回答３番の方の言うとおり順番が狂います
なぜなのでしょうか回避の仕方をご存知でしたら
よろしくお願いします

回答No.1

lavendertone

こんにちは。

結合されていないセル5行分の名前を結合されたセル5行（2行づつの結合で枠番号は10まで）に貼り付けるということでよろしいでしょか。

元の5名分をコピーします。
貼り付け先のセルを全て選択します。（普通の貼り付けのように一番上だけ選択したのではできません）
右クリックで「形式を選択して貼り付け」「値と数値の書式」を選んで「OK」
これで、結合されたセルに貼り付けられるはずです。

質問の意味を取り違えていましたらごめんなさい。

補足

すばやい回答ありがとうございます
回答３番の方の言うとおり順番が狂います
なぜなのでしょうか回避の仕方をご存知でしたら
よろしくお願いします