Gerar Mega Sena

Para criar uma função em VBA que gere números aleatórios da Mega Sena e os imprima a partir da célula A1 com tamanho de fonte 14 e no formato texto, você pode utilizar o seguinte código. A Mega Sena consiste na escolha de 6 números únicos de 1 a 60, então este código irá gerar tais combinações.

Function GerarNumerosMegaSena() As String
    Dim Numeros(1 To 6) As Integer
    Dim i As Integer, j As Integer
    Dim Num As Integer
    Dim Resultado As String

    Randomize

    ' Gerar 6 números únicos
    For i = 1 To 6
        Do
            Num = Int((60 * Rnd) + 1)
            ' Verificar se o número já foi escolhido
            For j = 1 To i - 1
                If Numeros(j) = Num Then
                    Num = 0
                    Exit For
                End If
            Next j
        Loop While Num = 0
        Numeros(i) = Num
    Next i

    ' Ordenar os números
    Call BubbleSort(Numeros)

    ' Converter para string
    For i = 1 To 6
        Resultado = Resultado & Format(Numeros(i), "00") & " "
    Next i

    GerarNumerosMegaSena = Trim(Resultado)
End Function

' Função auxiliar para ordenar os números
Sub BubbleSort(ByRef Arr() As Integer)
    Dim i As Integer, j As Integer
    Dim Temp As Integer

    For i = UBound(Arr) To 2 Step -1
        For j = 1 To i - 1
            If Arr(j) > Arr(j + 1) Then
                Temp = Arr(j)
                Arr(j) = Arr(j + 1)
                Arr(j + 1) = Temp
            End If
        Next j
    Next i
End Sub

Sub ImprimirNumerosMegaSena()
    Dim i As Integer
    Dim Numeros As String

    ' Configurar a coluna A
    With Range("A:A")
        .NumberFormat = "@"
        .Font.Size = 14
    End With

    ' Gerar e imprimir 10 conjuntos de números
    For i = 1 To 10
        Numeros = GerarNumerosMegaSena()
        Cells(i, 1).Value = Numeros
    Next i
End Sub