Excelで数を数える、どのようにすれば効率的でしょうか

よろしくお願いいたします。
皆さんのお知恵を貸してください。

添付の画像のように、1つのセルの中に複数の数字が入っている場合、
1は何個
2は何個

というのはどのように数えるのが効率的でしょうか。

1つのセルに1つの数ならcountifで簡単に数えられますが、、、、

よろしくお願いいたします。

No.2 回答者： sactaro04230601 回答日時： 2023/05/14 09:34

NO.1です

すいません単純な計算間違いしてました。

コンマで終わろうが数字で終わろうが、一桁だったら
=ROUND(LEN(セル番号)/2,0)
で大丈夫です。

この回答へのお礼

回答ありがとうございます。

お礼日時：2023/05/15 21:43

No.1 回答者： sactaro04230601 回答日時： 2023/05/14 09:28

一桁であることが決まっているのであれば、文字数を数えるLEN関数を使えばよいと思います。

が、2桁の数字があったりコンマで終わってるセルがあるとめんどくさいですね。

コンマで終わるセルがないとき
=ROUND(LEN(セル番号)/2,0)+1

コンマで終わるセルがあるとき
=IF(RINGHT(セル番号)=",",ROUND(LEN(セル番号)/2,ROUND(LEN(セル番号)/2,0)+1)

2桁の数字があるときはVBAの繰り返しで数えるしかないと思います。
つたないですが、以下のようなものでできると思います。
これはA列にカウントしたい数字が入っているとしてB列にカウントした数字を出してくれます。
コンマでカウントしているので、表記が違うものがあったらまた別のことを考えなければなりません。
Sub Sample()

Dim buf As String
Dim cnt As Long
Dim i As Long
Dim j As Long

i = 1

Do

buf = Cells(i, 1)
If buf = "" Then Exit Do

For j = 1 To Len(buf)
If Mid(buf, j, 1) = "," Then cnt = cnt + 1
Next j

If Right(buf, 1) = "," Then
Cells(i, 2) = cnt
Else
Cells(i, 2) = cnt + 1
End If

i = i + 1
cnt = 0

Loop

End Sub

この回答へのお礼

回答ありがとうございます。

お礼日時：2023/05/20 20:10