VBAを使ってExcelでデータをエンコードする方法｜初心者向けステップバイステップガイド

ステップ1：適切なパラメータを設定したデータセットを作成する

まずは、エンコード対象となるデータセットを準備しましょう。下の画像のように、氏名などのテキストデータを含むサンプル表をExcelに入力しておきます。

ステップ2：「開発」タブを有効化して使用する

Excelに標準搭載されている「開発」タブには、VBA（Visual Basic for Applications）でマクロを実行するために必要なツールがまとめられています。ただし、このタブは初期状態では非表示になっているため、メニューバーの「オプション」から設定を変更して、画面上部のリボンに表示させる必要があります。

• 「開発」タブを開きます。
• 「Visual Basic」コマンドを選択します。

ステップ3：VBAユーザー定義関数を作成する

選択すると、Visual Basic Editor（VBE）のウィンドウが開きます。

• メニューの「挿入」から「標準モジュール」を選択し、VBAコードを記述できる状態にします。
• 以下のVBAコードをモジュールに貼り付けます。
• コードを保存します。

Function Encoding(text$)
Dim i
With CreateObject("ADODB.Stream")
.Open: .Type = 2: .Charset = "utf-8"
.WriteText text: .Position = 0: .Type = 1: i = .Read
With CreateObject("Microsoft.XMLDOM").createElement("b64")
.DataType = "bin.base64": .nodeTypedValue = i
Encoding = Replace(Mid(.text, 5), vbLf, "")
End With
.Close
End With
End Function

このコードは、ADODB.Streamオブジェクトを使ってテキストをUTF-8のバイトデータに変換し、XMLDOMのBase64機能でエンコード文字列を生成する仕組みです。

ステップ4：Excel上でデータをエンコードする

ワークシートに戻り、セルB5に以下の数式を入力します。

=Encoding(A5)

• Enterキーを押します。

• 先頭の人物のデータに対するエンコード結果が表示されます。
• フィルハンドルをつかんで、セルB5からセルB11まで下方向へドラッグします。

• すべての行のエンコード結果が、下の画像のように一括で取得できます。

あわせて読みたい：Excelファイルのエンコード方式を確認する方法

練習用ワークブックのダウンロード

関連記事

• Excelでエンコードを変更する方法
• 【解決済み】Excelで「CSV UTF-8」が選択できないときの対処法
• ExcelでCSVファイルにUTF-8エンコーディングを適用する方法
• ExcelでBase64をデコードする方法

<< Excelのエンコード | Excelファイル | Excelの学習 に戻る