【初心者でも簡単！】Excelの改行をVBAで一発削除する方法とその活用術

Excelのセル内で改行を取り除きたい時、手動で一つ一つ修正するのは時間がかかり、効率的とは言えません。しかし、VBAを使えば、数秒で大量のセルから改行を一括で削除することができます。今回は「Excel 改行置換 VBA」を使って、セル内の改行を簡単に削除する方法を解説します。これを知っておけば、面倒な作業を自動化でき、日々の業務効率が劇的にアップします。

Excel 改行削除VBAの基本改行とは何か？
1. Excelで使われる主な改行コード
VBAで改行を置換する方法
1. 手順1改行を空白に置き換えるVBAコード
2. 手順2改行を完全に削除する
Excel 改行置換 VBAに関する疑問解決
1. Q1: VBAで改行コードを一括削除する際、特定のセルのみを対象にすることはできますか？
2. Q2: セル内の改行を削除するだけではなく、別の文字に置き換えたい場合はどうすればよいですか？
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

Excel 改行削除VBAの基本改行とは何か？

Excelのイメージ

改行は、セル内で複数行のテキストを表示させるために使われる制御文字ですが、時にはこれを削除したいケースがあります。改行を削除するVBAを使う前に、まず改行がどのように表現されているのかを理解しておきましょう。

Excelで使われる主な改行コード

Excelでセル内に改行を挿入する際に使われる制御文字にはいくつかの種類があります。その中でも代表的なのは以下の2つです

ここがポイント！

vbCrキャリッジリターン（カーソルを行の先頭に戻す）
vbLfラインフィード（次の行に移動）

これらの制御文字が組み合わさることで、Excel内のセルに改行が実現されます。実際には、これらを削除することでセルの内容が一行にまとまります。

VBAで改行を置換する方法

VBAを使って改行を削除するには、Replace関数を利用します。ここでは、セル内の改行を空白や他の文字に置き換える方法を具体的に解説します。

手順1改行を空白に置き換えるVBAコード

以下のVBAコードを実行することで、選択したセル内のすべての改行を空白に置き換えることができます

Sub RemoveLineBreaks()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Replace(cell.Value, vbCrLf, " ")  '改行コード（vbCrLf）を空白に置換
        cell.Value = Replace(cell.Value, vbCr, " ")   'キャリッジリターンを空白に置換
        cell.Value = Replace(cell.Value, vbLf, " ")   'ラインフィードを空白に置換
    Next cell
End Sub

このコードでは、選択したセルに含まれる改行（vbCrLf, vbCr, vbLf）をすべて空白に置き換えています。実行後、改行が取り除かれた状態でセル内のテキストが表示されるようになります。

手順2改行を完全に削除する

改行を完全に削除してしまいたい場合は、空白に置き換えるのではなく、文字そのものを削除することもできます。以下のコードを使用すれば、改行を完全に削除することができます

Sub RemoveLineBreaks()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Replace(cell.Value, vbCrLf, "")  '改行コード（vbCrLf）を削除
        cell.Value = Replace(cell.Value, vbCr, "")   'キャリッジリターンを削除
        cell.Value = Replace(cell.Value, vbLf, "")   'ラインフィードを削除
    Next cell
End Sub

この方法では、改行がなくなり、セル内のテキストが連続的に表示されます。

Excel 改行置換 VBAに関する疑問解決

ここでは、読者が抱えがちな疑問を予想し、それに対する回答をまとめていきます。

Q1: VBAで改行コードを一括削除する際、特定のセルのみを対象にすることはできますか？

はい、できます。例えば、Range(“A1:A10”)というように、特定の範囲を指定することで、その範囲に対してのみ改行削除を実行できます。例えば、次のコードのように変更できます

Sub RemoveLineBreaksInRange()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        cell.Value = Replace(cell.Value, vbCrLf, " ")
        cell.Value = Replace(cell.Value, vbCr, " ")
        cell.Value = Replace(cell.Value, vbLf, " ")
    Next cell
End Sub

Q2: セル内の改行を削除するだけではなく、別の文字に置き換えたい場合はどうすればよいですか？

改行を削除する代わりに、例えば「,（カンマ）」に置き換えたい場合は、以下のようにコードを変更します

Sub ReplaceLineBreakWithComma()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Replace(cell.Value, vbCrLf, ",")  '改行コードをカンマに置換
        cell.Value = Replace(cell.Value, vbCr, ",")   'キャリッジリターンをカンマに置換
        cell.Value = Replace(cell.Value, vbLf, ",")   'ラインフィードをカンマに置換
    Next cell
End Sub