Andrew Rubanov, таблицу, куда нужно загрузить данные грузите в PQ -> объединяете с той, что у Вас есть по столбцу -> удаляете все столбцы, кроме необходимого и загружаете его на лист
А представляете, как было бы проще если бы Вы приложили небольшой пример в формате excel?
Sub aaa()
ActiveSheet.Range("B2:C" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Index Mod 2 = 0 Then
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Range("B" & lLastRow + 1) = ws.Range("B3")
ActiveSheet.Range("C" & lLastRow + 1) = ws.Range("B6")
End If
Next
End Sub
Atajan, для более детального составления кода нужен файл, а пока могу предложить:
Код
Sub aaa()
Rng = Range("A1:D" & 10)
For r = 1 To UBound(Rng)
For c = 1 To 4
lLastRow = Cells(Rows.Count, 6).End(xlUp).Row
Cells(lLastRow + 1, 6) = Rng(r, c)
Next c
Next r
End Sub
=ЕСЛИОШИБКА(ЕСЛИ(ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$C$1:$C$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0))<>0;ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$C$1:$C$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0));ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$D$1:$D$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0)));"Нет данных")
Решение оптимизационной задачи о назначении, Необходимо распределить автобусы разной вместимости на конкретные рейсы с учетом мощности пассажиропотока на них
Sub aaa()
lLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Rng = Range("A3:E" & lLastRow)
For r = 1 To UBound(Rng)
If Rng(r, 1) <> "" Then
Start = Rng(r, 1)
Range("A" & r + 2 & ":C" & r + 3).ClearContents
End If
If Rng(r, 4) = 5 Then
Range("A" & r + 2) = Start
End If
Next
End Sub