データベースとして使いたい表なのに、結合セルだらけで使い物にならない。 そんなときに、VBAで作ったマクロを起動するだけで、 結合セルを解除して 元々入っていた値を、結合されていたすべてのセルに入力する マクロを紹介します。 ソースコードを貼り付けて実行するだけなので、1分もかからずに、表を整形できます。 ソースコード 下記を、標準モジュールに貼り付けて実行してください。 Sub UnmergeCellsAndFillValues() Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.MergeCells Then With rng.MergeArea .UnMerge .Value = .Resize(1, 1).Value End With End If Next End Sub 解説 For Eachループ F
![【エクセルVBA】一瞬で結合セルを解除して値を埋めるマクロ](https://cdn-ak-scissors.b.st-hatena.com/image/square/c6b84bead0e4605ccd7b71c51c103a46629c8a87/height=288;version=1;width=512/https%3A%2F%2Fwww.excelspeedup.com%2Fwp-content%2Fuploads%2F2018%2F12%2Fketsugoukaijyoshiteumeru.png)