Excelアルファベット文字列だけ一括抽出マクロ

質問

いつもお世話になっております。

Excel2013の
A列に、ひらがなカタカナ漢字、英数字、*"「などの記号（半角全角）などが入っている文字列があります。
そこからアルファベットの文字列だけ（数字は不要）を抽出して、結果をBCD・・・列に表示させたいのです（A1からの抽出結果はB1,C1…に表示、A2からの抽出結果はB2, C2…に表示）。

添付の画像ではA2までしか載せていませんが、
実際にはA列には1000くらいエントリーがあり、
それを一括でアルファベットの文字列を抽出したいのです。

ご存じの方、ご教示いただければ幸いですm(_ _)m

回答No.1

misatoanna

データ範囲のセル(A1:Axx)を選択した状態で実行します。

Sub Test()
　Dim rng As Range, DT As String, splt As Variant
　Dim i As Long, k As Long
　For Each rng In Selection
　　For i = 1 To Len(rng.Value)
　　　If Mid(rng.Value, i, 1) Like "[A-Z]" Or _
　　　　　Mid(rng.Value, i, 1) Like "[a-z]" Then
　　　　DT = DT & Mid(rng.Value, i, 1)
　　　Else
　　　　DT = DT & " "
　　　End If
　　Next
　　DT = WorksheetFunction.Trim(DT)
　　splt = Split(DT, " ")
　　For k = 0 To UBound(splt)
　　　rng.Offset(0, k + 1).Value = splt(k)
　　Next
　　DT = ""
　Next
End Sub

お礼

お時間を取っていただいて書いてくださってありがとうございましたm(_ _)m