Excel：アルファのみ、英数字およびすべてのタイプのデータ列のテキスト値の数を数えます。

Question

1万のエントリを持つ列があるとします。私はこれらのエントリーのどれだけが文字のみ、数字と文字、そして最後に他のすべてを含んでいるのかを数えたいと思う。すべてのデータは数値ではなくテキストとして保存されることに注意してください。

Answer 1

私は以下をテストしたところ、うまくいくように見えました。

これはあなたがVBエディタ内からマイクロソフトのVBScriptの正規表現5.5への参照を追加する必要が動作するように取得する注：

ツール>参考資料>マイクロソフトのVBScriptの正規表現5.5

Sub CountTextPatterns() 
Dim rngToCheck As Range 
Dim cl As Range 

Set rngToCheck = Range("A1:A10000") //Set up the range that contains the text data 

Dim numbersLetters As VBScript_RegExp_55.RegExp 
Set numbersLetters = New RegExp 
numbersLetters.Pattern = "^\d*[a-zA-Z][a-zA-Z0-9]*$" //Regex pattern to match alphanumeric with at least one letter 

Dim lettersOnly As VBScript_RegExp_55.RegExp 
Set lettersOnly = New RegExp 
lettersOnly.Pattern = "^[a-zA-Z]+$" //Regex pattern for letters only 

Dim cntNumbersLetters As Long, cntLetters As Long, cntRemainder As Long 
cntNumbersLetters = cntLetters = cntRemainder = 0 

//Loop through range, match cell contents to pattern, and increment count accordingly 
For Each cl In rngToCheck 
    If lettersOnly.Test(cl) Then 
     cntLetters = cntLetters + 1 
    ElseIf numbersLetters.Test(cl) Then 
     cntNumbersLetters = cntNumbersLetters + 1 
    End If 
Next 

//For anything that isn't letters only or numbers and letters, simply subtract from counts and total row count 
cntRemainder = rngToCheck.Rows.Count - cntNumbersLetters - cntLetters 

Debug.Print "Numbers and Letters = " & cntNumbersLetters & vbTab & "Letters = " & cntLetters & vbTab & "Remainder = " & cntRemainder 

End Sub