Excelを使用してセル内のテキストを検索するためのマクロが必要

Question

セル内のアルファベットを見つけるにはマクロOR式が必要です。

入力出力 521.03S S 522.05KS KS 520.32-EXSは私がalphepetsと整理する必要が 03.200.01-ABC -abc

-EXS - エクセルで（ハイフン） "を"。あなたの答えを探して

....

Answer 1

これを達成するために、おそらく多くの方法があります。ここで簡単に修正する簡単な方法があります。技術的にはアルファベットは見つからないが、数字が消えてしまう。

Function noNumbers(ByVal cltext As String) As String 

Dim mytext As String 
mytext = Replace(cltext, "0", "") 
mytext = Replace(mytext, "1", "") 
mytext = Replace(mytext, "2", "") 
mytext = Replace(mytext, "3", "") 
mytext = Replace(mytext, "4", "") 
mytext = Replace(mytext, "5", "") 
mytext = Replace(mytext, "6", "") 
mytext = Replace(mytext, "7", "") 
mytext = Replace(mytext, "8", "") 
mytext = Replace(mytext, "9", "") 
noNumbers = mytext 

End Function