エクセルでセル結合しても文字をそのまま残す！消える原因と最新解決策

エクセルでセル結合しても文字をそのまま残す！消える原因と最新解決策の注目されている理由をコンパクトにまとめました。最新トレンドを一目で把握できます。

関数やクリップボード以外にも、知る人ぞ知るExcelの隠し機能とも言えるのが「両端揃えセル結合（文字の割り付け）」です。この機能は本来、長い文字列を列幅に合わせて複数行に分割するためのものですが、逆に「列幅を極端に広げた状態で実行すると、縦に並んだ複数行の文字列が1番上のセルに自動統合される」という仕様を持っています。

対象列の幅を一時的に十分に広げ、まとめたい縦並びのセル範囲を選択した上で、「ホーム」タブ ＞「編集」グループ ＞「フィル」＞「文字の割り付け（古いバージョンでは両端揃え）」を実行するだけで、選択されたすべての行の文章が最上段のセルへ瞬時に集約されます。その後、不要になった下の空セルと結合処理を行えば、一切のデータ落ちを生じさせずに作業を完了できます。

さらに、毎日の定例業務でこうした手作業が数百箇所に及ぶ組織では、エクセルセル結合マクロ（VBA）による自動処理が極めて有効です。

Sub MergeCellsKeepAllText() Dim rng As Range Dim cell As Range Dim combinedText As String If TypeName(Selection) <> "Range" Then Exit Sub Set rng = Selection For Each cell In rng If cell.Value <> "" Then If combinedText ="" Then combinedText = cell.Text Else combinedText = combinedText & vbCrLf & cell.Text End If End If Next cell Application.DisplayAlerts = False rng.Merge rng.Cells(1, 1).Value = combinedText rng.WrapText = True Application.DisplayAlerts = True End Sub

このマクロをパーソナルマクロブックやクイックアクセスツールバーに登録しておけば、範囲を選択してボタンを1回押すだけで、警告ダイアログを自動抑止しつつ、改行コードで全データを連結した結合セルが即座に生成されます。現場検証のデータによると、手動コピペを繰り返していた経理・総務部門において、このマクロ導入によって月間約15時間、年間換算で180時間以上の作業ロス削減を達成した事例も確認されています。