テキストを失わずにセルを結合する

説明

テキストと結合する必要があるセルが多数あるとします。標準セット Excel にも同様の関数があります。 「マージして中央揃え」 , ただし、結合を実行すると、最も外側のセルのテキストのみが残ります。したがって、そのような目的には独自のマクロを使用する必要があります。

マクロの VBA コード

これを行うには、Visual Basic エディター (Alt+F11) を開きます。 VBA モジュールを挿入します (Insert - Module ）この手順のテキストをそこにコピーします。

Sub MergeToOneCell()
    'moonexcel.com.ua
    Const sDELIM    As String = " "
    Dim   rCell     As Range
    Dim   sMergeStr As String
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text
        Next rCell
        
        Application.DisplayAlerts = False
        .Merge Across:=False
        Application.DisplayAlerts = True
        
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
    End With
End Sub

保存して Excel に戻ります。

次に、必要なセルを選択し、マクロ (Alt+F8) を実行します (マクロ名: "MergeCell")。