エクセルVBA(マクロ)

結合セルを解除して、

結合解除後セルに、

同じ内容を一瞬でコピペ！

列指定版

こんにちは、シバマメです!

結合セルを使うと、見やすい表ができます。

反面、データの並べ替えや集計をするときに邪魔になりますね。

両方をスムーズに実現するマクロをご紹介します！

下記のように、結合をセルを解除して、

結合セルの内容を、結合解除後のセルに自動で書き込みマクロです。

これと、以前ご紹介した同じ内容のセルを結合するマクロを使えば、

一瞬で、「見やすい表」と「集計しやすい表」の切り替えができます。

↓以前ご紹介したマクロ

エクセルVBA(マクロ)一瞬で同じ内容のセルを結合する。より便利に！

エクセルVBA(マクロ)一瞬で同じ内容のセルを結合する。より便利に！こんにちは。シバマメです！エクセルVBA(マクロ)一瞬で同じ内容のセルを結合する。をより便利にしました。下記のように、表を一瞬で見...

使い方の手順

下記のコードを、個人用マクロブックに保存しましょう。
[個人用マクロブックの作成方法]
対象のエクセル表を開いた状態でマクロを実行します。
F5 or ▶ボタンで実行
実行すると、インプットボックスが出てきますので、
何列目の結合を解除したいか？数字で入力してください。
例えばA列の場合は１、B列の場合は２…です。

Sub unmerge()

    Dim Maxrow As Long
    Dim TargetCol As Long
    Dim i As Long
    Dim Atai As Variant
           
        TargetCol = InputBox("何列目を結合解除しますか？")
           
        Maxrow = Cells(Rows.Count, 1).End(xlUp).Row
                 
             For i = 1 To Maxrow
         
                   Cells(i, TargetCol).Activate
                    Atai = ActiveCell.Value
                   
                    If Cells(i, TargetCol).MergeCells Then
                   
                        ActiveCell.unmerge
                        Selection.Value = Atai
                        
                    End If
               
            Next i
           
End Sub

Sub unmerge()

Dim Maxrow As Long

Dim TargetCol As Long

Dim i As Long

Dim Atai As Variant

TargetCol = InputBox("何列目を結合解除しますか？")

Maxrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To Maxrow

Cells(i, TargetCol).Activate

Atai = ActiveCell.Value

If Cells(i, TargetCol).MergeCells Then

ActiveCell.unmerge

Selection.Value = Atai

End If

Next i

End Sub

エクセルVBA(マクロ)結合セルを解除して、結合解除後セルに、同じ内容を一瞬でコピペ！列指定版