ユーザ定義関数を作って利用する方法です。 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の全角アルファベットだけを半角にします。
![エクセル 全角英文字のみを半角に!](https://cdn-ak-scissors.b.st-hatena.com/image/square/ff23365744059c4e6401f239cc285919de8b2361/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2099_2.jpg)