2025年03月14日

Excelで濁点を分離する方法を紹介！

Microsoft Excelを使用していて、文字列から濁点を分離したいと思ったことはありませんか？文字列の分離を手作業で行うと時間がかかるので、自動的に分離させたいですよね。この記事では、Excelで濁点を分離する方法をご紹介しています。

目次[非表示]

Excelで濁点を分離する方法

Excelで濁点を分離する方法

Microsoft Excelを使用していて、文字列から濁点を分離したいと思ったことはありませんか？文字列の分離を手作業で行うと時間がかかるので、自動的に分離させたいですよね。この記事では、Excelで濁点を分離する方法をご紹介していきます。

それでは、Excelで濁点を分離する方法について説明していきます。濁点を分離するには、専用のマクロの作成を行います。まずはウィンドウ上部の「開発」タブをクリックしてリボンメニューを開き、「コード」項目の「Visual Basic」をクリックしましょう。もし「開発」タブが見当たらない場合は、下記リンク先の記事を参考にしてくださいね。

ExcelでVBAでマクロを作る方法を紹介！

Microsoft Excelで、VBAを使用してマクロを作成したいと思ったことはありませんか？使用できると便利になるマクロの作り方を知りたい方も少なくないと思います。この記事では、ExcelでVBAを使用したマクロの作り方をご紹介しています。

「Microsoft Visual Basic for Applications」ウィンドウが表示されます。画像の例では、ウィンドウ左側のフォルダツリーから「VBAProject(Book1)」を右クリックして表示されるメニューの「挿入」→「標準モジュール」をクリックして選択しています。

コードウィンドウが表示されたら、下記のコードを入力 — コードウィンドウが表示されるので、下記のコードを入力しましょう。コードの入力が完了したら、ウィンドウ上部の「Sub/ユーザーフォームの実行」ボタンをクリックしましょう。これで、マクロが登録されます。

Sub bunkatsu()
    Dim c As Range
    Dim i As Integer
    Dim t As Integer
    Dim str As String
    Const moji1 As String = "がぎぐげござじずぜぞだぢづでどばびぶべぼガギグゲゴザジズゼゾダヂヅデドバビブベボ"
    Const moji2 As String = "ぱぴぷぺぽパピプペポ"
    Const moji3 As String = "ヴ"
    For Each c In Selection
        t = 0
        For i = 1 To Len(c)
            str = Mid(c, i, 1)
            If InStr(moji1, str) > 0 Then
                c.Offset(0, t + i) = Chr(Asc(str) - 1)
                c.Offset(0, t + i + 1) = "゛"
            t = t + 1
            ElseIf InStr(moji2, str) > 0 Then
                c.Offset(0, t + i) = Chr(Asc(str) - 2)
                c.Offset(0, t + i + 1) = "ﾟ"
                t = t + 1
            ElseIf InStr(moji3, str) > 0 Then
                c.Offset(0, t + i) = Chr(Asc(str) - 79)
                c.Offset(0, t + i + 1) = "゛"
                t = t + 1
            Else
                c.Offset(0, i + t) = str
            End If
        Next
    Next
End Sub