Neste artigo, vamos aprender VBA como escrever a macro para consolidar os dados no Microsoft Excel.
Consolidar dados: -Esta opção é usada para resumir dados de intervalos separados, consolidando os resultados em uma única saída.
Vamos dar um exemplo para entender como combinar os dados por meio do VBA.
Temos três pastas de trabalho do Excel, nomeadas como A, B e C. Cada pasta de trabalho tem a Planilha1 com os números no intervalo A2: A4. Agora, queremos recuperar a soma de todas as pastas de trabalho em um arquivo do Excel com a soma dos números e também do nome do arquivo.
Arquivo A: -
Arquivo B: -
Arquivo C: -
Consolidar:-
Para consolidar os dados, siga as etapas abaixo: -
- Insira um formulário do usuário e, a seguir, insira 3 caixas de etiqueta, 3 caixas de texto e um botão de comando.
- Clique duas vezes no botão de comando para atribuir a macro.
- Escreva o código abaixo mencionado: -
Intervalo Subconsolidado () ("A1"). Selecione ActiveCell.Value = Intervalo "Nome" ("B1"). Selecione ActiveCell.Value = Intervalo "Quantidade" ("A2"). Selecione ActiveCell.Value = Intervalo "A" ("A3"). Selecione ActiveCell.Value = intervalo "B" ("A4"). Selecione ActiveCell.Value = intervalo "C" ("B2"). SelectWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidar "). Ativar Seleção.Consolidar Fontes: = Array (" 'D : \ Data \ [A.xlsx] planilha1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] planilha1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Função: = xlSum Windows (" A.xlsx "). Ative ActiveWorkbook.Close Windows (" B.xlsx "). Ative ActiveWorkbook.Close Windows (" C.xlsx "). Ative ActiveWorkbook .Close End Sub
Explicação do código: -Em primeiro lugar, definiremos os valores do intervalo e, em seguida, definiremos o caminho de cada arquivo. Em seguida, definiremos qual função funcionará para cada arquivo e qual cálculo queremos consolidar.
• Para executar o código, pressione a tecla F5.
• Todos os arquivos serão abertos e o VBA retornará a Soma para todos os arquivos e então colocará o resultado na frente do nome do arquivo.
Desta forma podemos consolidar os números e recuperar em arquivo único de diferentes arquivos do Microsoft Excel através do VBA.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos emsite de email