Nao entedi

Boa Noite Zinabre,

Não entendi o que você quer, principalmente nesse trecho: "Seria uma contador em escada que continuasse adicionando linhas até o momento em que seja interrompida a execução."

Você quer adicionar linhas? Qual seria o critério de interrupção?

att,

Vamos ver se consigo desenrolar.

Clico no botão iniciar e a contagem inicia:

A1= 1,2,3,4....100 (conta de 1 até 100)

A1 =100 então A1= 1 e A2= 1

A2= 2,3,4...100

A2= 100 então A1= 2 e A2= 1

A2= 2,3,4...100

A2= 100 então A1= 3 e A2= 1
.
.
.
.
A1= 100 e A2=100 então A3= 1

A1= 1; A2= 1

A3= 2,3,4....100

Isso nunca vai ter fim, a nao ser que eu peça pra parar.

Zinabre,

Primeiro, isso vai ter fim porque o Excel possui 1.048.576 linhas. Segundo esse processo vai ser tão rápida que você tem que colocar um critério de interrupção. Se não vai travar quando chegar na última linha do Excel.

E qual o objetivo disso? Qual a finalidade dessa contagem?

att,

Não há necessidade de um critério de interrupção. Acredito que como são cálculos com crescimento exponencial, em 1 hora rodando, nem mesmo 30 linhas de contagem seriam criadas. Mas se precisar, podemos considerar que a interrupção aconteça na linha 100.

Na verdade vou adaptar esse código em uma outra planilha. Os números gerados nas linhas serão usados para uma procura.

Digamos que tenha:

A1= 52
A2= 89
A3= 3
A4= 18

esse números serão usados para efetuar uma busca na tabela e comparar com outra.

Zinabre,

Dependendo da forma que for montado essa contagem em uma hora essa contagem vai estar muito grande, ainda mais porque não envolve colocar formulas e nem precisa selecionar a célula. (também depende do processador do seu PC)

Se você precisar gerar uma tabela de números aleatórios, você pode usar as funções =ALEATÓRIO() ou =ALEATÓRIOENTRE(). Bem mais prático para utilizar em eventuais análises.
Falo isso, porque o procedimento que você quer é determinista, se parar na linha 100 o resultado vai ser sempre o mesmo.

att,

Anexei uma planilha. Acho que agora vai dar pra entender o que eu preciso, esquecendo o que foi dito antes.

A planilha gera todas combinações possíveis de acordo com os números que estão na coluna A e traz o resultado a partir da coluna C.
Só que o resultado vem um em cada linha.
O que eu preciso é que todos resultados rodem na mesma linha.

Consegui fazer os cálculos na mesma linha e colunas diferentes. Já consigo usar isso no que eu preciso, mas
alguém saberia fazer ao contrário. Mesma coluna e linhas diferentes?

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim vElements As Variant, vresult As Variant
Dim lRow As Long, i As Long
 
vElements = Application.Transpose(Range("A1", Range("A1").End(xlDown)))
Columns("C:Z").Clear
 
lRow = 1
For i = 1 To UBound(vElements)
    ReDim vresult(1 To i)
    Call CombinationsNP(vElements, i, vresult, lRow, 1, 1)
Next i

Application.ScreenUpdating = True

End Sub
 
Sub CombinationsNP(vElements As Variant, p As Long, vresult As Variant, lRow As Long, iElement As Integer, iIndex As Integer)
Dim i As Long
 
For i = iElement To UBound(vElements)
    vresult(iIndex) = vElements(i)
    If iIndex = p Then
        lRow = lRow
        Range("C" & lRow).Resize(, p) = vresult
    Else
        Call CombinationsNP(vElements, p, vresult, lRow, i + 1, iIndex + 1)
    End If
Next i
End Sub