こんばんは。 関数に詳しくないとかなら、Wordで処理する方法もありかとは思います。 Wordの置換のワイルドカードを使います。 それが面倒なら、以下をVBEditor に貼り付けて一発変換という方法もあります。 正規表現を利用していますから、VBAでの処理が嫌なら、テキストエディタでも可能です。 数回の処理にはなるかと思いますが、基本的には、全角数字とスペースの統一です。 '// Sub RegExpExchange() 　Dim myRange As Range 　Dim objReg As Object 　Dim Matches As Object 　Dim Match As Variant 　Dim c As Range 　Dim Dspc As String 　Dspc = Chr(&H8140) '一般的な全角スペース 　Application.ScreenUpdating = False 　With ActiveSheet 　 'データはA列にあるとする 　　Set myRange = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)) 　End With 　Set objReg = CreateObject("VBScript.RegExp") 　With objReg 　　For Each c In myRange 　　　buf = c.Value 　　　.Pattern = "[０-９]+" 　　　.Global = True 　　　If .Test(buf) Then 　　　　Set Matches = .Execute(buf) 　　　　For Each Match In Matches 　　　　　buf = Replace(buf, Match, StrConv(Match, vbNarrow)) 　　　　Next Match 　　　End If 　　　.Pattern = "[" & Dspc & Space(1) & "]+" '全角・半角スペース1つずつ入れる 　　　.Global = True 　　　If .Test(buf) Then 　　　　Set Matches = .Execute(buf) 　　　　For Each Match In Matches 　　　　　buf = Replace(buf, Match, Dspc) 　　　　Next Match 　　　End If 　　　c.Offset(, 1).Value = buf 　　Next c 　End With 　Application.ScreenUpdating = True 　Set objReg = Nothing End Sub

簡単にはできませんね。 マクロを使用しないのであれば… 全角の英数字とカタカナを半角文字にする場合はＡＳＣ関数、その逆はＪＩＳ関数を使います。 カタカナは全角という縛りがありますので、とりあえず全角に変換した後 英数字をひとつずつ置換で置き換えるくらいしか思いつきません。