VBA~WorksheetFunction.Ascメソッド~Excel
VBAで文字列からフリガナを抽出したい場合はWorksheetFunction.Ascメソッドを使います。
書き方
WorksheetFunction.Asc(全角文字列)
例として下の画像において下のコードを実行するとセルB2にセルA1の全角文字列を半角文字列で表示します。
Sub test1() Range("B2") = WorksheetFunction.Asc(Range("A2")) End Sub