Excel: Como coletar dados de uma única célula e colocá-los em uma tabela? [fechadas]

Question

Eu tenho uma macro que faz alguns cálculos e produz um resultado que aparece em uma única célula. Quando eu executar a macro novamente, ele produz outro resultado na mesma célula e assim por diante. Eu desejo copiar os dados daquela célula e colocá-los em uma tabela, digamos na célula B1. E então o próximo resultado na célula C1. E assim por diante até eu ter uma tabela de dados.

Existe uma maneira simples de fazer isso?

E eu poderia ter a macro executada (digamos) 100 vezes e cada vez copiar os dados para a tabela como descrito acima?

Obrigado!

    

Answer 1

Aqui está um exemplo de macro super simples:

Sub MaintainHistory()
    Dim s As String, n As Long, v As Variant
    v = Rnd()
    Range("A1") = v
    If Range("B1") = "" Then
        Range("B1") = v
    Else
        n = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & n) = v
    End If
End Sub