Como posso combinar todas as linhas de duas planilhas do Excel em uma terceira planilha?

Question

Eu tenho duas planilhas, contendo uma lista de transações em duas contas separadas (uma conta poupança e um cartão de crédito). Eu quero colocar cada linha das duas primeiras planilhas em uma terceira para que eu possa construir uma tabela dinâmica a partir dos dados consolidados. Como posso conseguir isso?

Ou seja, tenho 10 linhas na folha A e 10 linhas na folha B , quer acabar com todas as 20 linhas em outra folha C . Não é importante para mim em que ordem eles estão. As duas planilhas de origem têm o mesmo formato.

Eu tentei algumas coisas:

• O recurso "Consolidar" do Excel não parece conseguir isso (embora seja possível que eu esteja perdendo alguma coisa).
• Os recursos da tabela dinâmica para fazer referência a vários intervalos têm a capacidade de "associar-se" à lógica, mas também não é o que eu quero.
• Recursos da tabela dinâmica para vários intervalos de consolidação parecem bons, mas não consigo fazer com que esse recurso faça o que eu preciso também.

Estou usando o Excel 2013.

Existe um número significativo de perguntas muito semelhantes, mas não encontrei uma pergunta que queira fazer exatamente isso.

Meus dados são exatamente assim:

Folha A

Date        Value       Description
21/01/2016  -$43.11     Pay credit card
18/01/2016  -$180.00    Movie tickets

Folha B

Date        Value       Description
17/01/2016  -$21.00     Video games
18/01/2016  -$18.00     Beer

Folha C (resultado desejado)

Date        Value       Description
21/01/2016  -$43.11     Pay credit card
18/01/2016  -$180.00    Movie tickets
17/01/2016  -$21.00     Video games
18/01/2016  -$18.00     Beer

    

Answer 1

Por favor, tente o código de amostra abaixo ..

Sub test()
'change the sheet name and range name as yours

Set Rng = Sheets("Sheet1").Range("A1:A10")
Set Rng1 = Sheets("Sheet2").Range("A1:A10")

i = 1
j = 0

For Each cell In Rng
Sheets("Sheet3").Range("A" & i).Value = cell.Value
Sheets("Sheet3").Range("A" & i).Offset(0, 1).Value = cell.Offset(0, 1).Value
Sheets("Sheet3").Range("A" & i).Offset(0, 2).Value = cell.Offset(0, 2).Value
i = i + 1
Next cell
j = i

For Each cel In Rng1
Sheets("Sheet3").Range("A" & j).Value = cel.Value
Sheets("Sheet3").Range("A" & j).Offset(0, 1).Value = cel.Offset(0, 1).Value
Sheets("Sheet3").Range("A" & j).Offset(0, 2).Value = cel.Offset(0, 2).Value

j = j + 1
Next cel

End Sub

Espero que isso ajude você