У меня есть несколько данных из файла CSV, мне нужно скопировать все данные CSV в один файл Excel, основанный на значении ячейки. Подобно исходному листу Excel1 B2:C2, чтобы до конца строки данных мне нужно скопировать Target Excel Sheet3 Столбец B2:C2 До конца так, как есть несколько рабочих книг в одной рабочей книге
Sub Copy_Paste()
Dim Openfile As String ' Openfile
Dim lstrow As Long, lCol As Long
Dim i As Long, j As Long
Dim rng As Range
Dim temp As Excel.Workbook
Dim temp1 As Excel.Workbook
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
lCol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End("AI").Column
Application.ScreenUpdating = False
For i = 2 To lstrow
For j = B To lCol
'Open The Workbook FME CSV File
Set temp1 = Workbooks.Open(ws.Cells("2" & j).Value)
ThisWorkbook.Sheets ("Main")
'Activate the destination worksheet
Set temp = Workbooks.Open(Range("H" & i).Value)
Sheets.Range("E" & i).Activate
'copy the data
temp1.Range("B:C").Copy 'need to copy the data B2&C2 to till End column
'Select the target range
ThisWorkbook.Range("L").Select
'Paste in the target destination
temp.Range("B2:C2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
temp1.Save
temp1.Close
Next j ' Once Column Cell empty goto next row
Next i
End Sub