VBA～WorksheetFunction.Ascメソッド～Excel

VBAで文字列からフリガナを抽出したい場合はWorksheetFunction.Ascメソッドを使います。

書き方

WorksheetFunction.Asc(全角文字列)

例として下の画像において下のコードを実行するとセルB2にセルA1の全角文字列を半角文字列で表示します。

Sub test1()

Range("B2") = WorksheetFunction.Asc(Range("A2"))

End Sub