ロト6でミニロト状態の時が時々あります。
（1424回で1等と2等で全体の34％）

これを狙うのも良いかも知れないですね？

1424回までの当選状況から集計してみました。

mini loto で当てよう loto 6
minilotoで当てようloto6の2等

・1等　168本　12％

下のマクロで抽出して第一数字からボーナス数字までに編集しています。

1等抽出
Sub miniloto_like()  
i = 0: j = 1
Sheets("リスト１").Select
Do Until Cells(i + 2, 2) = ""
   If Cells(i + 2, 7) <= 31 Then
     j = j + 1
    Range(Cells(i + 2, 1), Cells(i + 2, 10)).Copy Cells(j, 18)
   End If

i = i + 1
Loop
Cells(1, 17) = j - 1
End Sub

2等抽出
Sub miniloto_like2()
i = 0: j = 1
     Sheets("リスト１").Select
Do Until Cells(i + 2, 2) = ""
   If Cells(i + 2, 6) <= 31 And Cells(i + 2, 7) >= 32 And Cells(i + 2, 8) <= 31 Then
     j = j + 1
      Range(Cells(i + 2, 1), Cells(i + 2, 10)).Copy Cells(j, 31)
   End If

i = i + 1
Loop
Cells(1, 30) = j - 1
End Sub

・2等　317本　22％