CSVファイルをExcelで開くと文字化けする原因と解決方法をわかりやすく解説！

CSVファイルをExcelで開いたときに「文字がぐちゃぐちゃで読めない！」といった経験はありませんか？特に日本語を含むファイルでは、文字化けがよく起こります。これはファイルの「文字コード」が原因です。この記事では、文字化けの原因をやさしく解説し、Excelで正しく表示させるための具体的な対処法を紹介します。

CSVが文字化けする主な原因とは？
文字化けを防ぐ正しい開き方（Excel内から開く）
UTF-8で保存されたCSVファイルをShift_JISで開きたい場合の対処法
1. 方法1：メモ帳で文字コードを変更して保存する
ExcelでCSVを読み込むためのVBAマクロも便利
Office365やExcelの新しいバージョンではUTF-8対応が進んでいる
Googleスプレッドシートで開いてみるのも一つの手
まとめ：文字化けしないCSVファイルの開き方をマスターしよう

CSVが文字化けする主な原因とは？

CSVファイルがExcelで文字化けしてしまう一番の原因は「文字コードの違い」です。

CSVファイルは「カンマ区切りテキスト」ですが、中身の文字列がどのコード（UTF-8、Shift_JIS、UTF-16など）で書かれているかによって、Excelの読み込み方が変わります。

日本の多くのWindows環境では、Excelが標準でShift_JIS（＝日本語Windowsの標準文字コード）を想定してファイルを開きます。しかし、ウェブサービスなどで出力されるCSVはUTF-8で作られていることが多く、この違いが「文字化け」につながるのです。

たとえば、UTF-8で保存されたCSVファイルをExcelでダブルクリックして開くと、「ï»¿」などの謎の文字列が表示されたり、日本語が「縺薙≠縺」のように意味不明になることがあります。

文字化けを防ぐ正しい開き方（Excel内から開く）

CSVファイルを正しく表示するには、Excelを開いてからインポート手順を使うのが確実です。以下の手順で開きましょう。

Excelを起動します（ファイルは開かない）
メニューから「データ」タブを選択
「テキストまたはCSVから（外部データの取得）」をクリック
対象のCSVファイルを選択して「インポート」
「ファイルの原点」で「65001 : Unicode（UTF-8）」を選ぶ
データのプレビューが正しく表示されることを確認
「読み込み」をクリック

これで文字化けせずにCSVファイルがExcel上で開けるようになります。

Excelのバージョンによっては「データ」タブに項目名が少し異なる場合もありますが、「テキストまたはCSVから」といったメニューがあれば同様の手順で開けます。

UTF-8で保存されたCSVファイルをShift_JISで開きたい場合の対処法

どうしてもExcelをダブルクリックで開きたい、あるいは誰かに送るときに文字化けしないようにしたい、という場合は、CSVファイル自体を「Shift_JIS」で保存し直すことで対処できます。

方法1：メモ帳で文字コードを変更して保存する

CSVファイルを「メモ帳」で開く
「ファイル」→「名前を付けて保存」を選ぶ
保存ダイアログ下部の「エンコード」で「ANSI（＝Shift_JIS）」を選ぶ
「保存」ボタンをクリック

こうすることで、Shift_JIS形式のCSVファイルになり、Excelでダブルクリックしても文字化けしにくくなります。

ただし、UTF-8特有の絵文字や特殊文字が含まれている場合、Shift_JISでは正しく保存できないこともあるので注意が必要です。

ExcelでCSVを読み込むためのVBAマクロも便利

複数のCSVファイルを読み込む業務などでは、いちいち手動で文字コードを選ぶのは大変です。そのような場合には、VBA（マクロ）を使ってCSVを自動でUTF-8として読み込むスクリプトを活用するのもおすすめです。

以下は簡単なサンプルコードです。

Sub ImportCSV_UTF8()
    Dim qt As QueryTable
    Set qt = ActiveSheet.QueryTables.Add( _
        Connection:="TEXT;C:\YourPath\yourfile.csv", _
        Destination:=Range("A1"))
    With qt
        .TextFilePlatform = 65001 ' UTF-8
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End Sub