エクセルで、特定の数字を抜いた文字のカウント

質問

当方は原付のナンバープレートの作成に携わる者です。

ナンバープレートは数字の「４」を除いた番号のみで作成します。
０～１０００までのプレートを作ろうと思ったら
４０番台４００番台、下一桁が４も当然ダメです。

これを今まで頭で計算していました。
エクセルで簡単に計算できる方法はありませんでしょうか。
よろしくお願いします。

回答No.3

tom04

こんばんは！

VBAになってしまいますが・・・
とりあえず4桁数値（最大9999）で4が含まれていない数値をSheetのA列に表示するようにしてみました。

画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, j As Long, k As Long, L As Long, cnt As Long
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For L = 0 To 9
If i <> 4 And j <> 4 And k <> 4 And L <> 4 Then
cnt = cnt + 1
Cells(cnt, 1) = i & j & k & L
End If
Next L
Next k
Next j
Next i
End Sub 'この行まで

※　1行目に「0」が表示されますが、それは削除してください。

0～9の「4」が含まれない4桁数値のすべての組み合わせが表示されるはずです。m（_ _）m