【VBA】Excel 結合セルを一気に分割する方法

VBA

Excel VBA 一覧

ご訪問ありがとうございます。

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で結合されたセルを華麗に処理することができます。

Excel VBA 一覧

コメント

タイトルとURLをコピーしました