Gerar CEPs

Para criar uma função em VBA que gera números válidos de CEP (Código de Endereçamento Postal do Brasil) e os imprime a partir da célula A1 com tamanho de fonte 14 e no formato texto, podemos seguir uma abordagem mais simples, já que o CEP é basicamente um conjunto de 8 dígitos, geralmente formatado como XXXXX-XXX. Não há um dígito verificador ou um cálculo complexo envolvido na geração de um CEP.

Function GerarCEPAleatorio() As String
    Dim Parte1 As Long
    Dim Parte2 As Long

    Randomize

    ' Gerar as duas partes do CEP
    Parte1 = Int((99999 - 10000 + 1) * Rnd + 10000) ' Gera um número entre 10000 e 99999
    Parte2 = Int((999 - 100 + 1) * Rnd + 100)      ' Gera um número entre 100 e 999

    ' Combinar as partes para formar o CEP
    GerarCEPAleatorio = Format(Parte1, "00000") & "-" & Format(Parte2, "000")
End Function

Sub ImprimirCEPs()
    Dim i As Integer
    Dim CEP As String

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

    ' Gerar e imprimir 10 CEPs
    For i = 1 To 10
        CEP = GerarCEPAleatorio()
        Cells(i, 1).Value = CEP
    Next i
End Sub