[[20070412131145]]　『セルの結合の解除後に解除されたセル全てにデータ』（蒼井）　ページの最後に飛ぶ

『セルの結合の解除後に解除されたセル全てにデータを残す方法』（蒼井）

シートの中にランダムに結合されたセルが存在します。

　例えばA1～B2まで結合他にB10～N10まで結合
　のように結合範囲もまちまちです＾＾；

　結合を解除してしまうと左端にだけデータが残り、
　他のセルではデータが消失してしまうと思います。

　しかしＡ2からＢ2までの結合を解除した上で、
　A2・B2ともに元々結合セルにあったデータを残したいのですが、
　可能でしょうか？

ランダムに結合しているセルが散らばっているので、
手順が私にはどうしていいか分かりません。

全てのセルの結合をいっぺんに解除してしまうと、
どこが結合されていたのか判別するのが困難になってしまうので、
結合しているセルを検索し、それを個別に解除し、
値を解除されたセルに反映させるべきでしょうか？

説明不足な点はご指摘ください。

 マクロです。範囲を指定した状態で実行して下さい。
 元に戻せませんので、シートをコピーしてお試しを。
（純丸）(o^-')b
　
 Sub test()
   Dim r As Range
   Dim rng As Range
   For Each r In Selection
     If r.MergeCells Then
        Set rng = r.MergeArea
        r.UnMerge
        rng.Value = rng.Cells(1, 1).Value
     End If
   Next r
 End Sub

確認してみました。
凄いです。
ありがとうございましたｍ(＿＿)ｍ

コメント返信：

[ 一覧(最新更新順) ]

[[20070412131145]] 『セルの結合の解除後に解除されたセル全てにデータ』（蒼井） ページの最後に飛ぶ

[[20070412131145]]　『セルの結合の解除後に解除されたセル全てにデータ』（蒼井）　ページの最後に飛ぶ