Excel関数 - 文字列のなかに6ケタの数字が存在するセルの数を数えたいです

Excelの表のなかの特定範囲のセルのうち、
6ケタの数字が含まれるセルの数を数えたいのですが、
なにか良い方法があったら教えていただけないでしょうか？

※6ケタの数字は文字列と文字列の間に含まれています
※セルに含まれている6ケタの数字のうち一番小さい数は350000です
※セルに1ケタの数字が含まれている場合がありますが、その場合はカウントしたくありません

No.2 回答者： yuji3690 回答日時： 2017/04/07 23:50

拾ってきた式ですが、

=-LOOKUP(1,-(0&RIGHT(LEFT(A1,LOOKUP(1,-MID(0&A1,COLUMN(1:1),1),COLUMN(1:1))-1),COLUMN(1:1))))
とすることで、A1に含まれる数字部分を抽出できます。
（数字部分が複数個所ある場合は、最後尾の塊のみのようです。数字がない場合は0が表示されます）

これを使って数字部分のみを表示させた表を作り、
その表の中で10以上（1桁のものを除外するという意味です。350000以上としてもかまいません）
となっているものをCOUNTIFで数えれば良いかと。

No.1 回答者： tom04 回答日時： 2017/04/07 22:27

こんばんは！

VBAになりますが一例です。
「特定範囲」を範囲指定した後にマクロを実行してください。

Sub Sample1()
Dim c As Range, k As Long, cnt As Long
For Each c In Selection
For k = 1 To Len(c)
If Mid(StrConv(c, vbNarrow), k, 1) Like "[0-9]" Then
If Val(Mid(StrConv(c, vbNarrow), k, 6)) >= 350000 Then
cnt = cnt + 1
Exit For
End If
End If
Next k
Next c
MsgBox cnt
End Sub

※　連続する数値は最大6桁という前提です。
※　極端に広い範囲はしていしないでください。m(_ _)m