[[20200701102850]] 『セルの文字列から漢字だけを削除したい』(初心者) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの文字列から漢字だけを削除したい』(初心者)

セルの文字列から、漢字だけを削除し、残った文字列を半角カタカナに変換したいです。
半角カタカナへの変換方法は分かったのですが、それ以前の漢字を削除する方法が分かりません。

文字列には、ひらがな、カタカナ、記号、数字、漢字が含まれており、その中の漢字だけを削除したいです。
恐縮ですが、ご教示いただけますと幸いです。

< 使用 Excel:Excel2016、使用 OS:Windows10 >


 UDF
 セルに =DeleteKanji(A1)
 等で使用。

 標準モジュールへ

 Function DeleteKanji(ByVal txt As String) As String
     With CreateObject("VBScript.RegExp")
         .Global = True
         .Pattern = "[一-龠〃々〆〇]"
         DeleteKanji = .Replace(txt, "")
     End With
 End Function
(seiya) 2020/07/01(水) 11:11

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.