結合しているセルのシートに別の…

質問

教えて下さい・・・
Sheet1の、とあるセルから、Sheet2の、とある結合してあるセルに、Sheet1の結合してないセルをコピーをし、Sheet2の結合してあるセルに張り付けをする時、結合されたままで、張りつける方法って、どうしたらいいのでしょうか？
よろしくお願い致しますm(＿＿)m

回答No.3

noname#35109

＃２です。
結合されているセルが複数あって，まとめてコピーする場合だったのですね。
そうかかれていないのでわかりませんでした。

それで，マクロですると言われても，
例えばデータが次のようになっているとき，

　　　Ａ　 Ｂ　
　┌─┬─┬
１│あ│か│
　├─┼─┼
２│い │き│　　　←Sheet1
　├─┼─┼
３│う │く │
　├─┴─┼

　　　Ａ　 Ｂ
　┌─┬─┬
１│ 　│　 │
　├─┴─┼
２│ 　　　　│　　　←Sheet2
　├─┬─┼
３│　 │　 │
　├─┴─┼

Sheet2の結合されたA2セルには
・「い」と「き」のどちらを入れるべきか，「い」も「き」も両方入れるべきなのか，
・貼り付けたい範囲はどうなのか

などなど，不明な点がありすぎて，マクロにできません。
データの形や希望する形式は，データ作成をされている本人にしかわかりません。

それで，汎用的な方法ですが，書いて置きます。
もう１つのSheet（Sheet3）を使います。

～手順～
１. Sheet1を全て選択→Sheet3に全て貼り付け。
２. Sheet2を全て選択→Sheet3に形式を選択して貼り付け→「書式」にチェックを入れ「OK」

これで，Sheet3にSheet2の書式にSheet1のデータが乗った表が完成すると思います。
要は，先にデータを用意して，後で書式をコピーすれば良いだけです。
マクロは全く必要ないと思います。でもあえて書くなら，

--------------------------------
Sub Syoshiki_Copy()
　Sheets("Sheet1").Select
　Cells.Select
　Selection.Copy
　Sheets("Sheet3").Select
　Range("A1").Select
　ActiveSheet.Paste
　Sheets("Sheet2").Select
　Cells.Select
　Application.CutCopyMode = False
　Selection.Copy
　Sheets("Sheet3").Select
　Selection.PasteSpecial Paste:=xlPasteFormats, _
　Operation:=xlNone, _
　SkipBlanks:=False, _
　Transpose:=False
End Sub
---------------------------------

みたいな感じでしょうか。

また，本来なら，

---------------------------------
Sheet1A列の最終セルの位置を求める
Sheet1A1～A最終セルまで以下をループ
Sheet2のAiセルにSheet1のAiセルをとりあえず代入
　　もしすでに値が入っているか
　　結合されて存在しない場合
　　　　何もしない
次のセルへ。　ここまでをループ
　　もしA列の処理が終われば
　　　　次の列へ。　またループ。
　　　　もし次の列に値がなければ
　　　　　　マクロ終了
---------------------------------

のような感じのマクロにすることを考えるかもしれませんが，これでは実行に時間がやたらかかります。
それよりは，
手作業であっても，マクロであっても，コピーペーストで行く方がずっと早いと思います。

回答No.2

noname#35109

普通に，

Sheet1のとあるセルを選択→右クリックコピー→Sheet2の結合してあるセルを選択→右クリック貼り付け。

でできますけど。

もしくは，
Sheet1のとあるセルを選択→右クリックコピー→Sheet2の結合してあるセルを選択→右クリック形式を選択して貼り付け→値，または数式を選択→OK。

お礼

大切な休日のお時間でしたでしょうに、
ご回答いただきまして、ありがとうございました♪
これからも、また、分からない事があったら、
よろしくお願い致します(*∩∩*)

回答No.1

chokochann

一発でやるにはマクロでも作らないとできないと思います。Sheet1の中身はただのテキストでしょうか。どうしてもという場合は、コピーしたいSheet1のセル上で、キーボードのF2キーを押して、セルの中に入り、中身をコピー。それをSheet2のセルにもって行き、再度F2キーを押して中に入り、ペーストは手間でもやらざるを得んでしょう。

補足

chokochannさん♪
ありがとうございました☆:・.,:*~☆:;・,~*。,;^☆
スミマセン！！！
ペーストでのやり方は、わかっているんですが、
仰っている、その“マクロ”の張り方が知りたいンです...ρ(__;)イジイジ・・
もしも、ご存知なら、教えてくださいませんか？