アンダースコアと数字の削除を避ける

Question

すべての小文字を削除しようとしていますが、VBScriptはすべてのアンダースコア、小文字、および数字を削除しています。小文字だけを取り出し、他の文字を削除しないようにするにはどうすればよいですか？

With CreateObject("VBScript.RegExp") 
    .Pattern = "[^A-Z ]" 
    .Global = True 
    For Each cell In Worksheets("Sheet1").Range("C1:C25") 
     If Not IsEmpty(cell.Value) Then _ 
      cell.Value = Application.Trim(.Replace(cell.Value, "")) 
    Next cell 
End With​ 

Answer 1

小文字の正規表現は[a-z]です。

あなたの正規表現 - [^A-Z ] - 大文字とスペースではない文字にマッチするので、小文字よりもはるかに多く一致します。

あなたは文字を削除しているので、あなたはより良い1回以上の繰り返しに一致するように[a-z]後+数量詞を追加したい：

.Pattern = "[a-z]+" 

Answer 2

.Pattern = "[a-z]+" 

はあなたが後にしている何をすべき、これはすべて小文字と一致する必要があります手紙あなたが他の道を行くと、すべてのことがキャプチャされていていることを確認したい場合は欲張って、代わりにあなたができる数字と_です：

.Pattern = "[0-9_A-Z]+" 

0-9、A-Z、_などと一致するものはありません