Consolidación de datos a través de Excel VBA

Anonim

En este artículo, aprenderemos a VBA a escribir la macro para consolidar los datos en Microsoft Excel.

Consolidar datos: -Esta opción se utiliza para resumir datos de rangos separados, consolidando los resultados en una sola salida.

Tomemos un ejemplo para comprender cómo combinar los datos a través de VBA.

Tenemos 3 libros de Excel, denominados A, B y C. Cada libro tiene una Hoja1 con los números en el rango A2: A4. Ahora, queremos recuperar la suma de todos los libros de trabajo en un archivo de Excel con la suma de números y también el nombre del archivo.

Presentar un:-

Archivo B: -

Archivo C: -

Consolidar:-

Para consolidar los datos, siga los pasos que se indican a continuación: -

  • Inserte un formulario de usuario, luego inserte 3 cuadros de etiquetas, 3 cuadros de texto y un botón de comando.
  • Haga doble clic en el botón Comando para asignar la macro.
  • Escriba el código mencionado a continuación: -
 Sub Consolidate () Rango ("A1"). Seleccione ActiveCell.Value = "Nombre" Rango ("B1"). Seleccione ActiveCell.Value = "Cantidad" Rango ("A2"). Seleccione ActiveCell.Value = "A" Rango ("A3"). Seleccione ActiveCell.Value = "B" Rango ("A4"). Seleccione ActiveCell.Value = "C" Rango ("B2"). SeleccioneWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidar "). Activar selección. Consolidar fuentes: = Array (" 'D : \ Datos \ [A.xlsx] hoja1 '! R2C1: R4C1 ", _"' D: \ Datos \ [B.xlsx] hoja1 '! R2C1: R4C1 ","' D: \ Datos \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Función: = xlSum Windows (" A.xlsx "). Activar ActiveWorkbook.Cerrar Windows (" B.xlsx "). Activar ActiveWorkbook.Cerrar ventanas (" C.xlsx "). Activar ActiveWorkbook .Close End Sub 

Explicación del código: -En primer lugar, definiremos los valores del rango y luego definiremos la ruta de cada archivo. Luego definiremos qué función funcionará para cada archivo y qué cálculo queremos consolidar.
• Para ejecutar el código, presione la tecla F5.
• Se abrirán todos los archivos y luego VBA devolverá la suma a todos los archivos y luego pondrá el resultado al frente del nombre del archivo.

Esta es la forma en que podemos consolidar los números y recuperarlos en un solo archivo de diferentes archivos en Microsoft Excel a través de VBA.

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbenos asitio de correo electrónico