[[20071201162828]]　『追加した行の中のセルを結合させる』（りんご）　ページの最後に飛ぶ

『追加した行の中のセルを結合させる』（りんご）

　 A 　　B 　C 　 D 　　E 　　F 　　G

1| 　　| 　　| 　　| 　　　　　 | 　　　　　 |

2| 　　| 　　| 　　| 　　　　　 | 　　　　　 |

3| 　　| 　　| 　　| 　　　　　 | 　　　　　 |

上のような表がありまして、DEとFGがセルの結合で
1つのセルになっています。
マクロで任意に選択した行の上に行を挿入するマクロ
を組んでいます。
例えば2行のどこかのセルを選択してボタンをクリック
すると1行と2行の間に行が挿入されますが、結合セルの
DEとFGがそれぞれ結合が解除されDEFGのセルになってしまいます。
これを再度もとのDE、FGの結合セルにするにはどうしたらいいのでしょうか。
マクロの記録でやるとセルをそのつど選択しないと結合できません。
つまり行挿入時に自動で追加行に元の結合にしたいのです。
どなたかいい知恵をかして下さい。

 どちらがあっているか不明なのですが、（アクティブセルと挿入位置）
 Sub Test()
     With ActiveCell '.offset(-1)
          .EntireRow.Insert Shift:=xlDown
          Range("D" & .Row - 1).Resize(, 2).Merge
          Range("F" & .Row - 1).Resize(, 2).Merge
     End With
 End Sub
 もし位置がおかしければ、'.offset(-1)を有効にしてみて下さい
 (じゅんじゅん)

じゅんじゅん様

対応していただきありがとうございます。
あなたのいう処理もやってみましたが、みたことのない
エラ－がでてきました。
「デ－タ－の消失をふせぐため空白でない........」
こんなメッセ－ジです。

マクロで任意にセルを自動選択させるのがどのくらい難解かが
よく分かりました。
コメントいただいてから、4時間は色々やったと思いますが
途中手動作業をいれることで進めます。
どうもありがとうございました。

 ＞マクロの記録でやると
 すると・・・

 ●記録開始
 １．相対参照に変更
 ２．アクティブセルのある行を選択
 ３．コピー
 ４．右クリック→コピーしたセルの挿入
 ５．[ Delete ]
(６．セル色等つけてあれば、自動　に変更)
 ■記録終了

 「相対参照に変更」は、記録終了ボタンの隣のボタンで
 絶対参照と相対参照の切換が出来ます。
 このボタンが押された状態の時、相対参照で記録されます。

 アクティブセルの上に、行が挿入されます。
 正確に言うと、
 　アクティブセルのある行を挿入複写して
 　データ等を削除した行が出来る
 と言う事ですが。
 挿入された行が選択された状態で終了しますので
 そのあたりは、状況に合わせて記録の追記を行ってください。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20071201162828]] 『追加した行の中のセルを結合させる』（りんご） ページの最後に飛ぶ

[[20071201162828]]　『追加した行の中のセルを結合させる』（りんご）　ページの最後に飛ぶ