上表の赤枠で囲んだ部分のようにナンバーズ4のホットナンバー表示が今一で満足できない状態です。

縦に1個づつ色付けは出来るが？（横の部分は同時に出来ます）

ロト6のように一括して出来るようにしたい。

もし、全部色付けを消してしまったらまた目視で作業（膨大な時間がｗ）

（一括マクロ作成は簡単には行かない気がしますが？）

マクロである程度楽に出来るようになると、後から問題が分かって来ますｗ
（更に楽をしたいと思って来ますｗ）

今のマクロは下記の様に意味不明化してます。

hotnum_colorの再帰呼び出しで最後に関係ない部分まで一括色付けしてしまう。

変数　知らなかった本当の使い方 - 趣味のエクセルで当てようロト・ナンバーズ
Sub hotnum_color()
Dim maruiti As Range

Dim gyou, retu, yiti As Integer
Dim demebar, ndemebar, tdemebar, demerenbar As Range
Worksheets("パターン表").Select
Application.ScreenUpdating = False '画面変更をしない。
gyou = ActiveCell.Row
retu = ActiveCell.Column
If retu <= 17 Or retu >= 22 Then End


deme__iti = Cells(gyou, retu) + 67

deme = Cells(gyou, retu) '出目

If Cells(gyou, retu) > 4 Then
With Selection.Interior

.Color = 65535

End With
Else
With Selection.Interior

.Color = 10092543

End With

End If

Set maruiti = Application.Cells(gyou, deme__iti)

maruiti.Font.Underline = xlUnderlineStyleSingle
maruiti.Font.ColorIndex = 53


yiti = deme - Cells(gyou, 85) '出目の位置
Cells(gyou + yiti, retu + 70).Select '桁別に88行から出目対応して上下に

With Selection.Interior
.Color = 10092543
End With

Sheets("欠け算並び").Cells(gyou + 8, retu + 125) = Worksheets("パターン表").Cells(gyou, retu)
Worksheets("パターン表").Select

Application.ScreenUpdating = True '画面変更をしない。
'Cells(gyou + 1, retu).Select
j = 1

Do Until Cells(gyou + j, retu) = deme

If j > 3 Then Exit Do
j = j + 1
Loop
Cells(gyou + j, retu).Select

If Cells(gyou + j, retu) = "" Then End

'hotnum_color　’再帰呼び出し

End Sub

改造案は

自動で出目（０～9）のホットナンバーを判断する。

データの上あるいは下から実行する。

4桁を実行する。