一括で半角に変更

Sub Macro0505()
Dim rng As Range
For Each rng In Selection
rng.Value = StrConv(rng.Value, vbNarrow)
Next rng
End Sub