Função DezenasRepetidas()

[vanfer]

Desculpem-me se estou postando no tópico errado. Mas esta é a primeira vez que participo do forum.

Abaixo está a Função que eu fiz e que funciona perfeitamente. Mas eu gostaria que vocês me ajudassem para que ela me retorne da seguinte forma:

Como ela funciona:

Range(A1:O1)="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15" - linha anterior

Range(A2:Q2)="1 2 3 4 5 6 7 8 9 16 17 18 19 20 21" linha atual

Repeidas = 1 2 3 4 5 6 7 8 9"

E eu gostaria que ela prenchesse um intervalo Range(AA:AJ")

Public Function Repetidas(oCel As Range)

' ////// Dezenas repetidas da Lotofácil /////

' Compara o resultado da linha atual com o resultado da linha anterior
' e retorna os valores iguais em uma string

Dim data As Variant
Dim cAtual As Variant
Dim cAnterior As Variant
Dim oLin, oCol As Integer
Dim nCel As Integer

    ' Linha e coluna atual
    oLin = oCel.Row
    oCol = oCel.Column
    
    ' Calcula quantas colunas tem o intervalo
    nCel = oCel.Cells.Count
    
    ' Captura a linha anterior
    cAnterior = Range(Cells(oLin - 1, oCol), Cells(oLin - 1, oCol + (nCel - 1)))
    
    d = ""
    
    ' Compara as duas linhas e seleciona as repetidas
    For Each x In oCel
        For Each y In cAnterior
            If x = y Then
                If x < 10 Then c = "0" + CStr(x) Else c = CStr(x)
                d = d + " " + c
                m = m + 1
            End If
        Next
    Next
    
    ' Exibe a seleção desejada como uma string
    Repetidas = Trim(d)

End Function
 

Agradeço a colaboração de todos

Editado Julho 24, 2017 por vanfer