Excel Copiar DADOS de diversas abas para apenas uma

[RapidShareForm]

Ola pessoal

Gostaria de saber se é possível copiar os dados de todas as 35k abas através de formulas para uma unica aba, ou seja ter como tirar os dados de outras abas sem ter que ficar recortando e colando, agradeço desde já! 

 

 

 

 

[André_Arruda]

tente algo tipo isso:

Sub capturar()
Dim sh, ul As Long
Application.ScreenUpdating = False
sh = Sheets.Count

Plan1.Activate
Plan1.Range("A1").Select

For i = 2 To sh
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row + 1
Plan1.Range("A" & ul).Select
Plan1.Range("A" & ul & ":A100").Value = Sheets("Plan" & i).Range("A2:A100").Value
Plan1.Range("A1").Select
Next i
Application.ScreenUpdating = True
End Sub

 

Puxar de outras plans.rar