ご訪問ありがとうございます。
Googleシートマスターのひろしです。
前回

【VBA】Excel 接合したセルの番地を知る方法(結合セル対応)
【VBA】Excelで結合されたセルを華麗に処理することができます。
今回は、とっても価値の高い方法をお伝えします。
これを知ることであなたは、
結合されたセルを一気に分割することができます。
前回は、苦肉の策として別シートに出力しましたが、
セルの分割が許されるのであれば、今回のスクリプトで
一気にセルを分割してスッキリしましょう。
VBAスクリプト
Sub UnmergeAndFillCells()
Dim rng As Range
Dim cell As Range
Dim mergedValue As Variant
Dim mergeArea As Range
' 対象の範囲を指定(ここではシート全体)
Set rng = ActiveSheet.UsedRange
For Each cell In rng
If cell.MergeCells Then
Set mergeArea = cell.MergeArea
mergedValue = cell.Value
cell.MergeCells = False
' 元の値をすべてのセルに埋め込む(必要であれば)
mergeArea.Value = mergedValue
End If
Next cell
End Sub
上記スクリプトを実行すればOKです。
実行結果
以下の行をコメントアウトすれば
' 元の値をすべてのセルに埋め込む(必要であれば)
'mergeArea.Value = mergedValue
以下のようになります。
最後までご覧いただきありがとうございます。
つぎはこちら

【VBA】Excel 複数のセルを連結してクリップボードにコピーする方法
【VBA】Excelで結合されたセルを華麗に処理することができます。
コメント