Como extrair dados de várias planilhas

A extração de dados de uma planilha do Excel converte o conteúdo das células das planilhas em variáveis. A pasta de trabalho pode então colar os valores em uma nova planilha, exportá-los para um documento ou realizar cálculos sobre eles. Por exemplo, uma pasta de trabalho pode conter uma série de folhas, cada uma cobrindo um período das vendas da sua empresa. Uma macro do Visual Basic pode abrir cada folha por vez e copiar o conteúdo de uma célula específica, compilando uma lista de totais de vendas de cada folha.

1

Pressione "Alt-F11" para abrir o editor do Visual Basic do Excel.

2

Digite o seguinte código para abrir um bloco de macros:

Sub mcrExtractData ()

3

Adicione a seguinte linha para criar uma matriz de valores:

Dim extraídoValor (1 a 10) como Long

Substitua "1" e "10" pela primeira e última folha cujos dados você deseja extrair. Por exemplo, para extrair dados das planilhas 3 a 12, use a linha:

Dim extraídoValor (3 a 12) como Long

4

Adicione a seguinte linha para declarar uma variável que o loop da macro usará:

Dim i como Integer

5

Adicione a seguinte linha para abrir um loop For-Next:

Para i = 1 a 10

Substitua "1" e "10" pela primeira e última folha cujos dados você deseja extrair. Por exemplo, para extrair dados das planilhas 3 a 12, use a linha:

Para i = 3 a 12

6

Adicione a seguinte linha para ativar a primeira folha:

Folha (i) .Ativar

7

Adicione a seguinte linha para extrair dados da primeira folha:

ValorExtraído (i) = Intervalo ("C1"). Valor

Substitua "C1" pela célula cujos dados você deseja extrair. Por exemplo, para extrair o valor da célula E10, use a linha:

ValorExtraído (i) = Faixa ("E10"). Valor

8

Adicione a seguinte linha para fechar o loop For-Next:

Proximo eu

9

Adicione a seguinte linha para finalizar a macro:

End Sub

10

Pressione a tecla "F5" para executar a macro.