ユーザ定義関数を作って利用する方法です。 Alt+F11でVBAの画面を開きます。 「挿入」>「標準モジュール」を選択します。左側の画面にModule1というのができます。 右側の画面に、以下を貼り付けます。 Function ASC_A(str As String) As String Dim i As Integer For i = 1 To Len(str) If Mid(str, i, 1) Like "[a-zA-Z]" Then Mid(str, i, 1) = StrConv(Mid(str, i, 1), vbNarrow) End If Next ASC_A = str End Function Excelに戻って、任意のセルで =Asc_A(A1) とすると、A1の全角アルファベットだけを半角にします。