Tengo 2 archivos fuente (Excel) que contienen datos diferentes. Me gustaría crear un nuevo archivo de destino (archivo exportado) y tener una macro para obtener datos de ambos archivos de origen.
Escribí una macro para el archivo fuente 1 y parece funcionar bien. Sin embargo, cuando se trata del archivo fuente 2, tengo dificultades con la macro.
Además, me gustaría saber cómo obtener una macro para crear un archivo de destino (archivo exportado) que usaría datos de ambos archivos fuente 1 y fuente 2.
Consulte las capturas de pantalla a continuación para obtener más detalles. La sección resaltada en amarillo es del archivo de origen 1 y la sección resaltada en verde es del archivo de origen 2.
Tenga en cuenta que estos son datos ficticios, no datos reales.
Este es mi código de macro a continuación:
Sub pull_columns() Dim head_count As Integer Dim row_count As Integer Dim col_count As Integer Dim i As Integer Dim j As Integer Dim ws As Worksheet Dim wb2 As Workbook Application.ScreenUpdating = False Set ws = ThisWorkbook.Sheets("Sheet1") 'count headers in this workbook head_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight))) 'open other workbook and count rows and columns Workbooks.Open Filename:="J:\PS\FSD_Rest\SOPS_Data\Test_Rej\VBA test practices\SupporterTest.xlsx" ActiveWorkbook.Sheets(1).Activate row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown))) col_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight))) For i = 1 To head_count j = 1 Do While j <= col_count If ws.Cells(1, i) = ActiveSheet.Cells(1, j).Text Then ActiveSheet.Range(Cells(1, j), Cells(row_count, j)).Copy ws.Cells(1, i).PasteSpecial xlPasteValues Application.CutCopyMode = False j = col_count End If j = j + 1 Loop Next i ActiveWorkbook.Close Savechanges:=False ws.Cells(1, 1).Select Application.ScreenUpdating = True End Sub