Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Получить итоговую таблицу с позицией и параметром из первой таблицы с приписанными датами к каждому параметру из второй табл.
 
#1
21.10.2021 13:50:17
Помогите объединить две таблицы. Суть в следующем, получить итоговую таблицу с позицией и параметром из первой таблицы с приписанными датами к каждому параметру из второй табл.
 
 
 
#2
21.10.2021 13:56:48
PQ
 
 
 
#3
21.10.2021 14:18:54
Формулами
Код
H4:H54      =ВПР(СТРОКА(1:1);$L:$P;2;0)
I4:I54      =ВПР(СТРОКА(1:1);$L:$P;3;0)
J4:J54      =ВПР(СТРОКА(1:1);$L:$P;5;0)
M1          =(СЧЁТЗ(A:A)-2)
M2          =(СЧЁТЗ(D:D)-2)
L4:L101     =L3+(M4=O4)
M4:M101     =СМЕЩ(A$4;ЦЕЛОЕ((СТРОКА(1:1)-1)/$M$2);0)
N4:N101     =СМЕЩ(B$4;ЦЕЛОЕ((СТРОКА(1:1)-1)/$M$2);0)
O4:O101     =СМЕЩ(D$4;ОСТАТ((СТРОКА(1:1)-1);$M$2);0)
P4:P101     =СМЕЩ(E$4;ОСТАТ((СТРОКА(1:1)-1);$M$2);0)
 
 
 
#4
21.10.2021 14:47:19
entf, макросом
Код
Sub mrshkei()
Dim arr,  i As Long,  lr As Long, k As Long, cell As Range, x As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A4:B" & lr)
k = 4
For i = LBound(arr) To UBound(arr)
    Set cell = Columns(4).Find(arr(i, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If Not cell Is Nothing Then
        x = Application.WorksheetFunction.CountIf(Columns(4), arr(i, 1))
        Range("D" & cell.Row & ":D" & cell.Row + x - 1).Copy Destination:=Cells(k, 8)
        Range("E" & cell.Row & ":E" & cell.Row + x - 1).Copy Destination:=Cells(k, 10)
        Range(Cells(k, 9), Cells(k + x - 1, 9)) = arr(i, 2)
        k = k + x
    End If
Next i
Application.ScreenUpdating = True
End Sub
Изменено: Mershik - 21.10.2021 14:50:10
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
21.10.2021 15:20:02
Спасибо всем, получилось сделать через PQ, но другие варианты буд иметь ввиду ;) . Тему можно закрыть.
 
 
 
Страницы: 1
Наверх