to generate random formations with 40 numbers with the double palindrome from 01 to 98 *

to generate random formations with 40 numbers with the double palindrome from 01 to 98
* we have 10 twin pairs 00 11 22 33 44 55 66 77 88 99 these do not enter the formation

* ex = 42 24 32 23 ... 40
5000=formatios

Try:-

Sub MG28Apr44
Dim Rng As Range, Dn As Range, n As Long, Num As String, nNum As Long, ac As Long, Rw As Long
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Rw = 1 To 5000
ac = 0
For n = 1 To 98
Num = Format(n, "00")
If Not Right(Num, 1) = Left(Num, 1) Then
        .Item(n) = Num
End If
Next
    Do Until ac = 40
        nNum = Application.RandBetween(1, 98)
        If .exists(nNum) Then
            ac = ac + 1
            Cells(Rw, ac).NumberFormat = "@"
            Cells(Rw, ac) = .Item(nNum)
            .Remove nNum
        End If
    Loop
Next Rw
End With

End Sub

Regards Mick

.
I've looked around the Internet to learn the background of double palindromes. The articles were interesting, informative
and fun to learn from.

Aside from the pattern that is created ... what is the purpose of double palindromes ?

hello,logit logit, goal is to play only one of the number of the pair polindromo ex = 32,23, or if you play 32 or 23 numca the two together, you can see in the lottery results, the pair polindromo is rare

helo MICKG) corret, perfect, conglatutations,
thank you!

.
Thank you jorel.

hello, MICKEY, ok you can now generate 40 numbers, plus 20 polynomial pairs, and each formation must have 20 polynomial pairs,
example = 23 32 45 54 85 58 ...... 5000 formations