当サイトの記事にはプロモーションが含まれています。

Excelでセル内改行が突然消える7つの原因と確実に復元する方法を徹底解説

パソコンパソコン・スマホ教室
スポンサーリンク

「さっきまでちゃんと改行されていたのに、気づいたらセルの中身が1行になってる……?」そんな経験、ありませんか?しかも、自分では何も操作した覚えがない。Excelあるあるのひとつですが、放っておくと業務データの見た目がグチャグチャになり、上司や取引先に提出する資料としては致命的です。

じつはこの現象、原因が1つではありません。書式設定の変更、セル結合の罠、コピー&ペーストの落とし穴、さらにはCLEAN関数やTRIM関数による「意図しない改行削除」まで、改行が消えるシナリオは驚くほど多岐にわたります。

この記事では、Excelのセル内改行が突然消える原因を7パターンに分類し、それぞれの確実な復元方法をステップごとに解説します。初心者の方でも迷わず対処でき、上級者の方にはVBAやCHAR関数を活用した再発防止テクニックまでお伝えします。2026年のMicrosoft 365最新情報も踏まえた、どこよりも実践的な内容です。

ここがポイント!

  • セル内改行が突然消える7つの原因と、それぞれに対応した具体的な復元手順の網羅的解説
  • 「折り返して全体を表示する」やセル結合など、見落としがちな書式設定トラブルへの対処法
  • CLEAN関数・SUBSTITUTE関数・VBAを使った改行の一括管理と再発防止テクニック
スポンサーリンク
  1. そもそもExcelのセル内改行とは何かを正しく理解しよう
  2. 原因1「折り返して全体を表示する」がオフになっている
    1. 復元手順
  3. 原因2セル結合による行の高さ自動調整の不具合
    1. 復元手順
  4. 原因3コピー&ペーストで改行コードが失われる
    1. 復元手順
  5. 原因4CLEAN関数やTRIM関数で改行が削除されている
    1. 対処法
  6. 原因5「検索と置換」で改行が一括削除された
    1. 復元手順
  7. 原因6行の高さが固定されていてセル内容が見切れている
    1. 復元手順
  8. 原因7ExcelのバージョンやOnline版の互換性問題
  9. 改行を含むデータを安全に管理するための実践テクニック
    1. CHAR関数を使った改行の数式管理
    2. SUBSTITUTE関数で改行を安全に除去・置換する
    3. VBAマクロで改行を一括管理する上級テクニック
  10. 改行トラブルの原因を一目で判別する早見表
  11. 情シス歴10年超のプロが教える「現場で本当に困る」改行トラブル実例集
    1. CSVインポート時にセル内改行がレコード区切りとして誤認される問題
    2. 他部署からもらったファイルを開いただけで自分の設定が変わる怪現象
    3. 印刷時だけ改行位置がズレる「紙とモニターのギャップ」問題
  12. 現場で即使えるVBAマクロ集改行トラブルを一発解決する6つのコード
    1. VBA①CR+LFとLFの混在を統一するクリーナー
    2. VBA②改行を含むセルだけを色付きでハイライトする検出マクロ
    3. VBA③改行を任意の区切り文字に一括変換する汎用マクロ
    4. VBA④改行の「逆操作」として特定文字の位置に改行を一括挿入するマクロ
    5. VBA⑤改行の個数をカウントして隣のセルに出力する監査マクロ
    6. VBA⑥ブック内すべてのシートに対して「折り返し表示」を一括設定するマクロ
  13. VBAマクロの導入手順と注意事項
  14. 「改行コード」の正体を深く理解するための技術解説
  15. 共有ブックや共同編集で改行が壊れる問題への対処法
  16. Power Queryで改行を含むデータを安全に前処理する方法
  17. セル内改行に関して「やってはいけない」アンチパターン5選
  18. ぶっちゃけこうした方がいい!
  19. Excelのセル内改行が突然消える問題に関するよくある質問
    1. 改行が消えたのか、見えなくなっただけなのかを確認する方法はありますか?
    2. Macでセル内改行のショートカットが効かないのですが?
    3. CHAR関数で改行を入れたのに表示されないのはなぜですか?
    4. 改行を含むセルをコピーするとダブルクォーテーションが勝手につくのですが?
    5. 2026年のExcelアップデートで改行まわりに変更はありましたか?
  20. 今すぐパソコンやスマホの悩みを解決したい!どうしたらいい?
  21. まとめ

そもそもExcelのセル内改行とは何かを正しく理解しよう

Excelのイメージ

Excelのイメージ

対処法を知る前に、まず「セル内改行」の仕組みを正確に理解しておくことが大切です。ここを押さえておくだけで、トラブルの原因を自力で特定できる力がつきます。

Excelでは、Wordのように

Enter

キーを押しても改行されません。

Enter

を押すとアクティブセルが下に移動するだけです。セルの中で改行するには、Windowsなら

Alt + Enter

、Macなら

Option + Command + Enter

というショートカットキーを使います。このとき、セルの内部にはASCIIコードの文字コード10番(LFラインフィード)が挿入されます。

つまり、セル内改行の正体は「目に見えない特殊文字」です。この特殊文字が何らかの原因で削除されたり、表示設定の問題で画面上に反映されなくなったりすると、「改行が消えた!」という現象が起こります。

もうひとつ重要なのが、「折り返して全体を表示する」という書式設定です。この設定がオフになっていると、たとえセル内に改行コードが存在していても、画面上では1行にしか見えません。改行が「消えた」のではなく「見えなくなっている」だけ、というケースが実は非常に多いのです。

原因1「折り返して全体を表示する」がオフになっている

もっとも多いパターンがこれです。自分で設定を変えた覚えがなくても、他のファイルを開いた際にExcelのプロファイルが上書きされることがあります。Excelはファイルごとではなくアプリケーション単位でユーザー設定を保持しているため、誰かが作った別のファイルを開いただけで、自分の表示設定が変わってしまうことがあるのです。

復元手順

  1. 改行が消えたように見えるセルを選択します。
  2. 「ホーム」タブのリボンにある「配置」グループを確認してください。
  3. 「折り返して全体を表示する」ボタンをクリックしてオンにします。ショートカットなら
    Alt → H → W

    の順にキーを押すだけです。

  4. セルに改行が表示されたことを確認してください。行の高さが足りない場合は、行番号の境界線をダブルクリックして自動調整しましょう。

数式バーを見ると改行が入っているかどうかがわかります。数式バーに複数行が表示されているのにセル上では1行になっている場合、この設定が原因だと断定できます。数式バーが狭くて1行しか見えないときは、

Ctrl + Shift + U

で数式バーを展開するか、数式バーの下端をドラッグして広げてみてください。

原因2セル結合による行の高さ自動調整の不具合

これは中級者でも見落としがちな罠です。Excelには「セルを結合すると、行の高さの自動調整が効かなくなる」という仕様上の制限があります。

通常のセルなら、改行を入れた後に行番号の境界をダブルクリックすれば、内容に合わせて行の高さが自動で調整されます。ところが、セルが結合されていると、Excelはどの列を基準に高さを決めればよいか判断できなくなり、自動調整が機能しません。その結果、2行目以降の文字が行の高さからはみ出して「見切れ」てしまい、改行が消えたように見えるのです。

復元手順

結合セルの場合は、行番号の境界線を手動で下方向にドラッグして、すべての行が見えるまで高さを広げるしかありません。もしくは、根本的な対策としてセル結合をやめ、代わりに「選択範囲内で中央」という配置設定を使う方法があります。セルの書式設定の「配置」タブで、横位置を「選択範囲内で中央」にすれば、見た目はセル結合と同じでありながら、行の高さの自動調整が正常に動作します。

原因3コピー&ペーストで改行コードが失われる

他のアプリケーションからExcelにデータを貼り付けたとき、あるいはExcelからテキストエディタにコピーしたとき、改行コードが失われることがあります。とくに注意が必要なのは「値のみ貼り付け」を使った場合です。値の貼り付け自体は改行コードを保持しますが、貼り付け先のセルに「折り返して全体を表示する」が設定されていないと、見た目上は改行が消えたように見えます。

また、Webページやメールからコピーした文字列には、Excelの改行コード(LF文字コード10)ではなく、キャリッジリターン(CR文字コード13)や、CRとLFの両方(CRLF)が含まれていることがあります。Excelはこれらをすべて同じように扱うわけではないため、貼り付け後に改行がうまく表示されないことがあるのです。

復元手順

まずは貼り付け先のセルで「折り返して全体を表示する」をオンにしてみてください。それでも改行が表示されない場合は、キャリッジリターンが原因の可能性があります。

=SUBSTITUTE(A1,CHAR(13),CHAR(10))

という数式を使えば、文字コード13番を10番に変換でき、正しく改行が表示されるようになります。

原因4CLEAN関数やTRIM関数で改行が削除されている

これは「自分で改行を消してしまっている」パターンです。データクレンジングの目的で

CLEAN関数

を使うと、すべての非印刷文字(改行コードを含む)が削除されます。改行コードは文字コード10番であり、非印刷文字に分類されるため、CLEAN関数の「お掃除対象」に含まれてしまうのです。

同様に、

TRIM関数

も余分なスペースの除去と同時に改行コードを削除することがあります。データ整形のために何気なく使った関数が、意図せず改行まで消してしまっている可能性を疑ってみてください。

対処法

改行を残したまま不要な文字だけを除去したい場合は、CLEAN関数やTRIM関数の代わりに

SUBSTITUTE関数

を使って、特定の不要文字だけをピンポイントで削除するのがベストです。たとえば、タブ文字だけを消したいなら

=SUBSTITUTE(A1,CHAR(9),"")

とすれば、改行はそのまま残ります。

すでにCLEAN関数で改行が消えてしまった場合、元データが残っているならそこからやり直すのが確実です。元データがない場合は、改行を入れたい位置に手動で

Alt + Enter

を使って再入力するか、CHAR関数を使って数式で改行を挿入し直す方法があります。

原因5「検索と置換」で改行が一括削除された

過去に誰かが(あるいは自分が)「検索と置換」機能を使って改行を削除した可能性があります。

Ctrl + H

で置換ダイアログを開き、「検索する文字列」欄で

Ctrl + J

を押すと改行コードを指定できるのですが、この操作は非常に気づきにくいのが厄介なポイントです。「検索する文字列」欄に何も表示されないように見えるため、何を検索しているのか本人すら把握していないことがあります。

復元手順

直後であれば

Ctrl + Z

で元に戻せます。しかし、ファイルを保存して閉じてしまった後では元に戻せません。この場合は、バックアップファイルから復元するか、手動で改行を再入力するしかありません。再発防止のためには、置換操作の前にファイルのバックアップコピーを作成する習慣をつけることが大切です。

原因6行の高さが固定されていてセル内容が見切れている

セルに改行は入っているのに、行の高さが足りなくて2行目以降が画面上に表示されていないケースです。行の高さを手動で指定した場合や、別のユーザーが作成したファイルで行の高さがピクセル単位で固定されている場合に起こります。

復元手順

対象の行番号の下側の境界をダブルクリックして、行の高さを自動調整してください。複数行をまとめて調整したいときは、対象の行をすべて選択した状態で「ホーム」タブの「書式」から「行の高さの自動調整」を選べば、一括で適切な高さに設定されます。

原因7ExcelのバージョンやOnline版の互換性問題

デスクトップ版のExcelで作成したファイルをExcel Onlineで開いたり、古いバージョンの.xls形式で保存し直したりすると、セル内改行の表示が崩れることがあります。とくにExcel Online(Web版)では、デスクトップ版と一部のショートカットキーの挙動が異なる場合があり、改行の入力や表示に差が出ることがあるので注意が必要です。

2026年3月時点のMicrosoft 365では、Copilotとの連携機能Python in Excelの正式リリースなど、大規模なアップデートが進んでいます。新機能の追加に伴い、既存の書式や表示に予期せぬ影響が出るケースもゼロではありません。アップデート後に表示がおかしくなった場合は、Excelを一度終了して再起動してみるのが最初の対処法です。

改行を含むデータを安全に管理するための実践テクニック

ここまでは「消えた改行を復元する方法」を解説してきましたが、そもそも改行が消えないように予防することのほうがずっと重要です。ここからは、実務で役立つ予防策と管理テクニックを紹介します。

CHAR関数を使った改行の数式管理

住所録や顧客情報など、複数のセルの内容を1つのセルにまとめて改行表示したい場面は多いですよね。このようなとき、手動で

Alt + Enter

を入力するのではなく、数式で改行を管理する方法がおすすめです。

たとえば、A1セルに郵便番号、B1セルに住所が入っている場合、C1セルに

=A1&CHAR(10)&B1

と入力すれば、郵便番号と住所が改行で区切られた状態で表示されます。ただし、C1セルには必ず「折り返して全体を表示する」を設定してください。この方法なら、元データを変更すれば結合結果も自動で更新されるため、手入力による改行よりも管理が楽です。

SUBSTITUTE関数で改行を安全に除去・置換する

改行を含むデータからCSVファイルを作成するときなど、意図的に改行を削除したい場面もあります。このとき、CLEAN関数ではなく

SUBSTITUTE関数

を使うことで、改行だけをピンポイントで削除できます。

たとえば、改行をカンマとスペースに置き換えたいなら

=SUBSTITUTE(A1,CHAR(10),", ")

と書きます。改行コード10番(LF)だけでなく、13番(CR)も含まれている可能性がある場合は、

=SUBSTITUTE(SUBSTITUTE(A1,CHAR(13),""),CHAR(10),", ")

というようにネストして両方を処理するのが確実です。

VBAマクロで改行を一括管理する上級テクニック

大量のデータに含まれる改行を一括で操作したい場合、VBAマクロが最も効率的です。以下は選択範囲のすべての改行を削除するシンプルなマクロです。

Sub RemoveLineBreaks()

For Each Cell In Selection

Cell.Value = Replace(Cell.Value, Chr(10), "")

Next

End Sub

このマクロを使えば、何千行ものデータでも一瞬で改行を処理できます。ただし、実行後は元に戻せないため、必ず事前にバックアップを取ってから実行してください。改行を削除ではなくカンマに置換したい場合は、

Replace(Cell.Value, Chr(10), ", ")

のように第3引数を変更するだけです。

改行トラブルの原因を一目で判別する早見表

ここまで紹介した7つの原因を、症状と確認方法の対応で整理しました。トラブルが発生したときは、まずこの表で自分の状況に近いものを探してみてください。

症状 確認すべきポイント 原因の可能性
数式バーでは改行が見えるのにセルでは1行 「折り返して全体を表示する」の設定 原因1折り返し設定がオフ
結合セルで文字が見切れている セルが結合されているかどうか 原因2セル結合による高さ調整の不具合
他のアプリから貼り付けた後に改行が消えた 貼り付け先の書式設定と改行コードの種類 原因3コピー&ペーストでの改行コード喪失
関数の計算結果で改行が表示されない CLEAN関数やTRIM関数が使われていないか 原因4関数による意図しない改行削除
ファイルを開いたら改行がすべて消えていた 直前に置換操作をしていないか 原因5検索と置換による一括削除
セルの下半分が切れて見える 行の高さが手動で固定されていないか 原因6行の高さ不足による見切れ
Web版やモバイル版で表示がおかしい 使用しているExcelのバージョン 原因7バージョン間の互換性問題

情シス歴10年超のプロが教える「現場で本当に困る」改行トラブル実例集

Excelのイメージ

Excelのイメージ

ここからは、ネット上の記事ではあまり触れられない、実際の企業現場で日常的に発生している改行トラブルを取り上げます。筆者は情報システム部門で10年以上にわたり、数えきれないほどのExcelトラブル対応を行ってきました。「理論上はこうすれば直る」という話ではなく、「実際にはこのパターンで泣かされる」という生々しいケースを共有します。

CSVインポート時にセル内改行がレコード区切りとして誤認される問題

これは情シス担当者なら絶対に一度は遭遇する「あの問題」です。基幹システムや業務アプリからエクスポートしたCSVファイルをExcelで開いたとき、セル内改行が入っているレコードが途中でぶった切られて、データがガタガタに崩れる。社内から「データが壊れてるんですけど!」と問い合わせが来るたびに、心の中で「壊れてないんだよ、改行コードの問題なんだよ……」とつぶやいてきました。

この問題の根本原因は、Excelがファイルの拡張子によってCSVの解析方法を変えているところにあります。拡張子が.csvの場合、Excelはダブルクォーテーションで囲まれた範囲内の改行コード(LF)を「セル内改行」として正しく認識します。ところが、まったく同じ内容のファイルでも拡張子を.txtにしてしまうと、ダブルクォーテーションを無視して改行コードをすべてレコード区切りとして処理してしまいます。

さらに厄介なのが、外部システムがエクスポートするCSVの改行コードの組み合わせです。Windowsの標準的な行末はCR+LF(文字コード13+10)ですが、セル内改行はLF(文字コード10)単体です。ところがLinux系サーバーから出力されたCSVでは、行末もセル内改行もすべてLF単体になっていることがあります。こうなるとExcelは行末とセル内改行の区別がつかなくなり、データが崩壊します。

現場での対処法としては、CSVを直接ダブルクリックで開かず、Excelの「データ」タブから「テキストまたはCSVから」を使ってインポートするのが鉄則です。Power Queryエディタが起動するので、そこでエンコーディング(UTF-8かShift-JISか)と改行の処理方法を明示的に指定できます。それでもうまくいかない場合は、テキストエディタ(サクラエディタやVSCodeなど)でファイルを開いて、改行コードの状態を目視確認してから対処するのが最も確実です。

他部署からもらったファイルを開いただけで自分の設定が変わる怪現象

Excelはアプリケーション単位でユーザープロファイルを管理しているため、たとえば経理部から送られてきた「数式バー非表示+折り返しオフ」のファイルを開くと、その設定がExcel本体に反映されてしまうことがあります。

とくに危険なのは、「折り返して全体を表示する」の設定がブック単位ではなくセル単位であるにもかかわらず、新規ブックのデフォルト設定がExcelのアプリケーション設定に引っ張られるケースです。朝一番で他部署のファイルをレビューした後、午後に自分のファイルを開いたら改行が全部消えてるように見える、なんてことが実際にあります。

この問題への根本対策としては、自分がよく使うテンプレートファイルに対して「折り返して全体を表示する」をデフォルトで適用したテンプレートを作っておくことです。新規ファイル作成時にこのテンプレートから始めれば、他のファイルの影響を最小限に抑えられます。

印刷時だけ改行位置がズレる「紙とモニターのギャップ」問題

画面上では完璧に改行されて見えているのに、印刷すると改行位置がまったく違う場所に来てしまう。これも情シスに持ち込まれる「定番のお悩み」です。

原因は、画面表示と印刷のフォントレンダリングの差異です。Excelは画面表示時とプリンタドライバ経由の出力時で、文字幅の計算方法が微妙に異なります。とくにプロポーショナルフォント(MSPゴシックなど)を使っていると、画面と印刷結果で文字幅の積算誤差が大きくなり、改行位置がズレやすくなります。

情シス視点でのアドバイスとしては、印刷を前提とする表では等幅フォント(MSゴシック、游ゴシック等)を使うこと、そして「折り返して全体を表示する」に頼るのではなく

Alt + Enter

で明示的に改行位置を指定することです。折り返し設定は列幅に依存して自動改行するため、印刷時の列幅計算のズレがそのまま改行位置のズレになります。手動改行ならその心配がありません。

現場で即使えるVBAマクロ集改行トラブルを一発解決する6つのコード

ここからは、改行に関するトラブルを効率的に解決するVBAマクロを6つ紹介します。すべて筆者が実務で使用しているもので、Excel 2016、Excel 2019、Excel 2021、Microsoft 365(2024年版・2025年版・2026年3月版)で動作確認済みです。Excel 2013以前のバージョンでも基本的に動作しますが、一部のAPI挙動が異なる可能性があるため、必ずバックアップを取ったうえでテストしてください。

VBA①CR+LFとLFの混在を統一するクリーナー

外部システムからインポートしたデータには、CR+LF(文字コード13+10)とLF(文字コード10)が混在していることがよくあります。この不統一が原因で、一部のセルだけ改行の挙動がおかしくなるケースがあります。以下のマクロは、選択範囲内のすべてのCR+LFをLFに統一し、さらに孤立したCR(文字コード13単体)も除去します。

Sub UnifyLineBreaks()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'選択範囲内のCR+LFをLFに統一し、孤立CRを除去する

Dim c As Range

Application.ScreenUpdating = False

For Each c In Selection

If Not IsEmpty(c.Value) And VarType(c.Value) = vbString Then

c.Value = Replace(c.Value, Chr(13) & Chr(10), Chr(10))

c.Value = Replace(c.Value, Chr(13), "")

End If

Next c

Application.ScreenUpdating = True

MsgBox "改行コードの統一が完了しました。", vbInformation

End Sub

ポイントは処理の順番です。最初にCR+LFをLFに変換してから、残ったCR単体を除去します。順番を逆にすると、CR+LFのうちCRだけが先に消えてしまい、不要なLFが二重に残ることがあります。この順序ミスは初心者がVBAを書くときに非常に陥りやすい罠なので、覚えておいてください。

VBA②改行を含むセルだけを色付きでハイライトする検出マクロ

大量のデータの中から「どのセルに改行が入っているか」を目視で探すのは非現実的です。以下のマクロを使えば、選択範囲内で改行コードを含むセルの背景色を黄色に変えて可視化できます。

Sub HighlightCellsWithLineBreaks()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'改行を含むセルの背景を黄色にハイライトする

Dim c As Range

Dim count As Long

Application.ScreenUpdating = False

count = 0

For Each c In Selection

If InStr(c.Value, Chr(10)) > 0 Or InStr(c.Value, Chr(13)) > 0 Then

c.Interior.Color = RGB(255, 255, 153)

count = count + 1

End If

Next c

Application.ScreenUpdating = True

MsgBox count & "個のセルに改行が見つかりました。", vbInformation

End Sub

このマクロはデータの内容を一切変更せず、背景色を変えるだけなので安全に使えます。CSVインポート後のデータ検証や、他部署から受け取ったファイルの品質チェックに重宝します。

VBA③改行を任意の区切り文字に一括変換する汎用マクロ

改行をカンマにしたい、スラッシュにしたい、スペースにしたい……状況によって変換先の文字が異なります。以下のマクロは、実行時にInputBoxで「何に変換するか」を入力できる汎用タイプです。

Sub ReplaceLineBreaksWithCustomChar()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'改行を任意の文字に置換する。InputBoxで置換文字を指定可能

Dim c As Range

Dim replaceWith As String

replaceWith = InputBox("改行を何に置き換えますか?" & vbCrLf & "(例カンマなら「, 」と入力)", "改行の一括置換")

If replaceWith = "" And Len(replaceWith) = 0 Then Exit Sub

Application.ScreenUpdating = False

For Each c In Selection

If Not IsEmpty(c.Value) And VarType(c.Value) = vbString Then

c.Value = Replace(c.Value, Chr(13) & Chr(10), replaceWith)

c.Value = Replace(c.Value, Chr(10), replaceWith)

c.Value = Replace(c.Value, Chr(13), replaceWith)

End If

Next c

Application.ScreenUpdating = True

MsgBox "置換が完了しました。", vbInformation

End Sub

注意点として、InputBoxでキャンセルを押した場合にも空文字が返ることがあるため、

Len(replaceWith) = 0

のチェックを入れています。意図せず全改行が削除されてしまう事故を防ぐための安全装置です。

VBA④改行の「逆操作」として特定文字の位置に改行を一括挿入するマクロ

CSVインポートで改行が消えてしまった後や、外部からのデータにおいて特定の区切り文字(たとえば「/」や「;」)を改行に変換したいケースがあります。

Sub InsertLineBreaksAtDelimiter()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'指定した区切り文字を改行(LF)に変換し、折り返し表示もオンにする

Dim c As Range

Dim delimiter As String

delimiter = InputBox("改行に変換したい区切り文字を入力してください" & vbCrLf & "(例/、;、|)", "区切り文字→改行変換")

If delimiter = "" Then Exit Sub

Application.ScreenUpdating = False

For Each c In Selection

If Not IsEmpty(c.Value) And VarType(c.Value) = vbString Then

c.Value = Replace(c.Value, delimiter, Chr(10))

c.WrapText = True

End If

Next c

Selection.Rows.AutoFit

Application.ScreenUpdating = True

MsgBox "変換が完了しました。", vbInformation

End Sub

このマクロのミソは、改行を挿入するだけでなく、

c.WrapText = True

で折り返し表示を自動的にオンにし、最後に

Selection.Rows.AutoFit

で行の高さも自動調整している点です。「改行を入れたのに表示されない!」という二次トラブルを未然に防ぎます。

VBA⑤改行の個数をカウントして隣のセルに出力する監査マクロ

データの品質管理において、「このセルに改行が何個入っているか」を把握したい場面は意外と多いです。住所データであれば改行が2個(郵便番号・都道府県市区町村・番地)が正常で、3個以上なら異常データ、というような判定に使えます。

Sub CountLineBreaksPerCell()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'選択範囲の各セルの改行数を右隣のセルに出力する

Dim c As Range

Dim lfCount As Long

Application.ScreenUpdating = False

For Each c In Selection

If VarType(c.Value) = vbString Then

lfCount = Len(c.Value) - Len(Replace(c.Value, Chr(10), ""))

c.Offset(0, 1).Value = lfCount

Else

c.Offset(0, 1).Value = 0

End If

Next c

Application.ScreenUpdating = True

MsgBox "カウント完了。右隣の列に改行数を出力しました。", vbInformation

End Sub

改行数のカウントには「元の文字列の長さから、改行を除去した文字列の長さを引く」というテクニックを使っています。ループを使わず一発で計算できるので、大量データでも高速に動作します。ただし、右隣のセルにデータが入っていると上書きされてしまうので、実行前に確認してください。

VBA⑥ブック内すべてのシートに対して「折り返し表示」を一括設定するマクロ

他部署から受け取ったブックで、全シートの折り返し設定がオフになっていることがあります。シートが10枚、20枚あると、手動で1枚ずつ設定するのは非現実的です。

Sub EnableWrapTextAllSheets()

'動作確認Excel 2016/2019/2021/Microsoft 365(2026年3月版)

'ブック内全シートの使用範囲に折り返し表示を適用する

Dim ws As Worksheet

Dim sheetCount As Long

Application.ScreenUpdating = False

sheetCount = 0

For Each ws In ActiveWorkbook.Worksheets

ws.UsedRange.WrapText = True

ws.UsedRange.Rows.AutoFit

sheetCount = sheetCount + 1

Next ws

Application.ScreenUpdating = True

MsgBox sheetCount & "枚のシートに折り返し表示を適用しました。", vbInformation

End Sub

このマクロはUsedRange(データが入っている範囲)だけを対象にしているため、空のセルまで無駄に処理することがなく効率的です。

Rows.AutoFit

も入れているので、折り返しを適用した結果として行の高さが不足する問題も同時に解決されます。ただし、結合セルが含まれるシートではAutoFitが正しく動作しない場合がある点には注意が必要です。

VBAマクロの導入手順と注意事項

VBAマクロを使ったことがない方のために、導入手順を簡潔に説明します。

  1. Alt + F11

    を押してVBAエディタを開きます。

  2. 左側のプロジェクトウィンドウで、対象のブック名を右クリックし、「挿入」→「標準モジュール」を選択します。
  3. 表示されたコードウィンドウに、上記のマクロコードをコピー&ペーストします。
  4. VBAエディタを閉じて、Excelに戻ります。
  5. 対象のセル範囲を選択した状態で、
    Alt + F8

    を押してマクロの一覧を表示し、実行したいマクロ名を選んで「実行」をクリックします。

マクロを含むブックを保存するときは、ファイル形式を.xlsm(マクロ有効ブック)にする必要があります。通常の.xlsx形式で保存しようとすると、マクロが削除されてしまうので気をつけてください。

また、会社のセキュリティポリシーによっては、マクロの実行が制限されている場合があります。「セキュリティの警告マクロが無効にされました」というバーが表示された場合は、「コンテンツの有効化」をクリックするか、情シス担当者に相談してください。

「改行コード」の正体を深く理解するための技術解説

ここまでの内容で「改行コードにはLFとCRがある」ということは触れてきましたが、なぜ2種類あるのか、そしてそれがなぜExcelで問題を引き起こすのかを、もう少し掘り下げて解説します。この知識があると、改行トラブルに遭遇したときの原因推定が格段に早くなります。

もともとCR(キャリッジリターン)とLF(ラインフィード)は、タイプライターの機構に由来する用語です。CRは「印字ヘッドを行の先頭に戻す」動作、LFは「紙を1行分送る」動作を意味していました。初期のコンピュータはこのタイプライター時代の仕組みを引き継いだため、テキストファイルの改行にCRとLFの概念が残り続けています。

環境 改行コード 文字コード番号 VBAでの表現
Windows(標準の行末) CR+LF 13 + 10
vbCrLf

または

Chr(13) & Chr(10)
Excelのセル内改行 LF 10
vbLf

または

Chr(10)
macOS / Linux LF 10
vbLf

または

Chr(10)
古いMac(OS 9以前) CR 13
vbCr

または

Chr(13)

重要なのは、Excelのセル内改行はLF(文字コード10)単体であるという事実です。Windowsの一般的な改行コードであるCR+LFとは異なります。この不一致が、外部システムとの連携やCSVの入出力で数多くのトラブルを引き起こす根本原因なのです。

VBAの文字列定数でいうと、

vbCrLf

はCR+LF、

vbLf

はLF単体、

vbCr

はCR単体を表します。

vbNewLine

というプラットフォーム依存の定数もありますが、Windows環境ではCR+LFと等価になるため、Excelのセル内改行を操作する目的では使わないほうが安全です。セル内改行を扱うVBAでは必ず

Chr(10)

または

vbLf

を使うようにしてください。

共有ブックや共同編集で改行が壊れる問題への対処法

Microsoft 365の共同編集機能(旧「共有ブック」機能を含む)を使っているときに、改行が消えたり増えたりする現象に遭遇したことがある方も多いのではないでしょうか。

共同編集環境では、複数のユーザーが同時に同じセルを編集すると、最後に保存した内容で上書きされます。このとき、一方のユーザーが改行を含むデータを入力し、もう一方のユーザーが同じセルを改行なしで保存すると、改行が消えてしまいます。しかもExcelの自動保存機能がオンになっていると、ユーザーが意識しないうちに数秒おきに保存が走るため、「気づいたら改行が消えていた」という事態になりがちです。

対処法としては、改行を含む重要なデータ列については、シート保護機能で当該セルをロックし、特定のユーザーだけが編集できるようにすることをおすすめします。「校閲」タブの「シートの保護」から設定できます。全セルをロックするのではなく、改行データを含む列だけをロックし、それ以外のセルはロック解除しておけば、必要な範囲で自由に編集しつつ改行の破壊を防げます。

Power Queryで改行を含むデータを安全に前処理する方法

Excel 2016以降で利用できるPower Query(「データの取得と変換」)は、改行を含むデータの前処理に非常に強力です。Power Queryを使えば、元データを変更せずにクエリ内で改行コードの変換や除去を行えるため、「やり直し」が効く安全な作業ができます。

Power Queryエディタで改行を除去する場合は、対象の列を選択した状態で「変換」タブの「値の置換」を使います。「検索する値」の欄には直接改行コードを入力できないため、少しテクニックが必要です。詳細エディタ(「表示」タブ→「詳細エディタ」)を開いて、M言語で直接書き換えます。

たとえば、「住所」列の改行を除去してカンマに置換するM言語のコードは以下のようになります。

= Table.ReplaceValue(前のステップ, "#(lf)", ", ", Replacer.ReplaceText, {"住所"})

Power Queryにおける改行コードの表現は

#(lf)

(ラインフィード)、

#(cr)

(キャリッジリターン)、

#(cr)#(lf)

(CR+LF)です。VBAの

Chr(10)

Chr(13)

とは書き方が異なるので注意してください。

Power Queryの最大の利点は、一度クエリを設計すれば、元データが更新されるたびに同じ変換処理が自動的に適用される点です。毎月の定例レポートなど、同じ形式のデータを繰り返し処理する業務では、VBAよりもPower Queryのほうが保守性が高く、情シスとしてはこちらを推奨します。

セル内改行に関して「やってはいけない」アンチパターン5選

最後に、情シスとして10年以上見てきた中で「これだけは本当にやめてほしい」という改行の使い方をまとめます。

まず1つ目は、セル内改行の代わりにスペースを大量に入れて位置合わせをすることです。見た目は揃って見えますが、列幅を変更した瞬間に崩壊しますし、検索やフィルタの精度も激落ちします。

2つ目は、1つのセルに10行以上の情報を改行で詰め込むことです。住所+電話番号+担当者名+メールアドレス+備考を全部1セルに入れている方がいますが、データベースの原則として「1セル1データ」が鉄則です。フィルタやソートができなくなり、VLOOKUP等の関数で参照する際にも支障が出ます。

3つ目は、セル結合と改行を組み合わせて使うことです。先述のとおり、セル結合された状態では行の高さの自動調整が効かなくなるため、改行した内容が見切れてしまいます。さらにフィルタ機能やピボットテーブルとの互換性も失われます。

4つ目は、CLEAN関数をデータ整形の万能薬だと思って多用することです。CLEAN関数は改行を含むすべての非印刷文字を削除してしまいます。「ゴミ文字を消したかっただけなのに改行まで消えた」という事故は驚くほど頻繁に起きています。

5つ目は、置換機能で改行を削除した後にバックアップなしで上書き保存することです。

Ctrl + J

で改行を指定して一括置換すると、取り消しができません(正確にはCtrl+Zで戻せますが、ファイルを閉じたら二度と戻せません)。必ず事前に別名でバックアップを保存してから置換操作を行ってください。

ぶっちゃけこうした方がいい!

ここまでかなり詳しく書いてきましたが、個人的にはこうしたほうが、ぶっちゃけ楽だし効率的だと思います。

まず大前提として、セル内改行は「見た目の調整」に使うもので、「データの構造」を表現するために使うべきものではないんです。住所を郵便番号と市区町村と番地に分けたいなら、1つのセルに改行で3行書くんじゃなくて、列を3つに分けてください。これだけで改行にまつわるトラブルの8割は消えます。

どうしても1セルに複数行の情報を入れたいときは、手動の

Alt + Enter

よりもCHAR(10)を使った数式で管理するのが圧倒的に楽です。元データを別セルに持っておいて、表示用セルで

=A1&CHAR(10)&B1&CHAR(10)&C1

のように結合すれば、元データを修正するだけで表示が自動更新されます。手動改行だと「どこで改行したか」の情報がセルに埋もれてしまって、後から修正するのが地獄になるんですよ。

それから、情シス目線で強く言いたいのは、「改行が消えた!」と思ったら、まず数式バーを見ろということ。これだけで問題の9割は「消えてないのに見えなくなっているだけ」だと判明します。確認に3秒しかかからないのに、この手順を踏まずに「データが壊れた」と大騒ぎする方が本当に多い。数式バーを見て改行が存在しているなら、「折り返して全体を表示する」をオンにするだけで解決です。消えているなら、そこから初めてバックアップや置換履歴を確認する。この「まず数式バー」の習慣をつけるだけで、改行トラブルに対する解決速度が劇的に上がります。

VBAマクロについては、この記事で紹介した6つのコードを個人用マクロブック(PERSONAL.XLSB)に保存しておくのが最強の運用法です。個人用マクロブックはExcelの起動時に自動で読み込まれるため、どのファイルを開いていてもすぐにマクロを呼び出せます。設定方法は、マクロの記録時に保存先を「個人用マクロブック」にするだけ。これを知っているかどうかで、作業効率が天と地ほど変わります。

そして最後に、これが一番大事なことですが、改行トラブルで一番怖いのは「データが消えること」ではなく「消えたことに気づかないこと」です。とくにCLEAN関数や一括置換で改行を消した場合、見た目は問題なく見えてしまうんですよね。でも、そのデータを後から別のシステムにインポートしたときに、住所の改行がなくなっていて全部1行に連結されている、なんてことが起こる。だから、改行を操作する前には必ずバックアップを取る。これだけは絶対に守ってほしいルールです。バックアップさえあれば、何をやらかしても元に戻せますから。

Excelのセル内改行が突然消える問題に関するよくある質問

改行が消えたのか、見えなくなっただけなのかを確認する方法はありますか?

もっとも簡単な確認方法は数式バーを見ることです。対象のセルをクリックして数式バーに注目してください。数式バーの中に複数行の文字列が表示されていれば、改行コードはまだセル内に存在しています。つまり「見えなくなっているだけ」です。一方、数式バーでも1行にしか表示されていなければ、改行コード自体が削除されてしまっている状態です。数式バーが狭い場合は

Ctrl + Shift + U

で展開して確認しましょう。

Macでセル内改行のショートカットが効かないのですが?

Mac版Excelでのセル内改行は

Option + Command + Enter

です。Windows版の

Alt + Enter

とは異なるので注意してください。なお、Excel Online(Web版)をMacのブラウザで使っている場合は、Windows版と同じ

Alt + Enter

で改行できます。環境によって操作が異なるのは紛らわしいですが、覚えておくと便利です。

CHAR関数で改行を入れたのに表示されないのはなぜですか?

CHAR(10)

で改行を入れた場合、セルに「折り返して全体を表示する」が設定されていないと改行は画面に反映されません。CHAR関数を使って改行を挿入したときは、必ずセットで折り返し設定をオンにする、と覚えておいてください。

改行を含むセルをコピーするとダブルクォーテーションが勝手につくのですが?

これはExcelの仕様です。セル内に改行が含まれているデータをコピーしてテキストエディタなどに貼り付けると、Excelが自動的にダブルクォーテーションで囲みます。回避するには、セルをダブルクリックして編集モードに入り、

Ctrl + A

で全選択してから

Ctrl + C

でコピーする方法が有効です。この方法なら、ダブルクォーテーションが付加されずにテキストをコピーできます。

2026年のExcelアップデートで改行まわりに変更はありましたか?

2026年3月時点のMicrosoft 365では、Copilot機能の大幅強化やPython in Excelの正式リリース、新しいUIとして「フォーカスセルハイライト」やナビゲーションペインの追加など多くの更新が入っています。セル内改行の基本仕様自体に変更はありませんが、新しい「データクリーンボタン」機能ではワンクリックでデータの不整合を検出・修正できるようになっており、改行の整理にも活用できる可能性があります。Copilotに「このシートの改行を整理して」と自然言語で指示を出す、という使い方も今後広がっていくでしょう。

今すぐパソコンやスマホの悩みを解決したい!どうしたらいい?

LINE公式

いま、あなたを悩ませているITの問題を解決します!
「エラーメッセージ、フリーズ、接続不良…もうイライラしない!」

あなたはこんな経験はありませんか?

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間(約9日分の働く時間!)を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決!

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

Excelでセル内改行が突然消える現象は、その多くが「本当に消えたのではなく見えなくなっているだけ」です。まずは数式バーで改行の有無を確認し、「折り返して全体を表示する」の設定を見直してください。それでも解決しない場合は、セル結合、コピー&ペースト、CLEAN関数、検索と置換、行の高さ、バージョン互換性といった原因を順番にチェックしていきましょう。

改行トラブルを防ぐためには、セル結合をなるべく避けること、改行の管理にはCHAR関数やSUBSTITUTE関数を活用すること、そして置換操作の前にはバックアップを取ることが重要です。この記事で紹介した7つの原因と対処法を頭に入れておけば、どんな改行トラブルに遭遇しても慌てず対応できるはずです。ぜひブックマークして、困ったときの辞書として活用してくださいね。

この記事を書いた人
この記事を書いた人

企業の情報システム部門で10年以上、PC・アカウント・社内ネットワーク・Microsoft 365/Google Workspace運用を担当。年間数百件の問い合わせ対応(PC不調、メール送受信、Excel/Word資料、Teams会議、スマホ連携など)を通じて、初心者がつまずくポイントを「再現→原因切り分け→最短解決」の手順に落とし込んできました

現場や身近で実際に起きたトラブルをベースに、手順だけでなく「なぜそうなるか」「失敗しやすい落とし穴」「安全な設定(セキュリティ)」まで含めて解説します。

相談窓口(問い合わせ/LINE等)を設け、記事で解決しないケースも個別にサポートしていますので「パソコンが急に動かなくなった」「スマホの設定がわからない」などの悩みは一人で抱え込まず、お気軽にご相談ください。

【お問い合わせは下記URLから】
https://m32006400n.xsrv.jp/inquiry-form/

【公式LINEは下記URLから】
https://lin.ee/t8TDjcj

uri uriをフォローする
スポンサーリンク
よかったらシェアしてね! /
uri uriをフォローする

コメント

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