leprosyЕсть А,В,С ;
Есть D, E, F
Надо:
сопоставить А1 с D(Проитись по всему D)
Если в D есть значение равное А1,
то содержание A1, B1, C1 , D#, E#, F# copy to G, H, I.
попробуй
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub f()
Dim rng As Range
Dim i As Long, j As Long
With ActiveWorkbook.ActiveSheet
i = 1
Do While .Cells(i, 1 ).Value <> ""
Set rng = .Range("D:D").Find(What:=.Cells(i, 1 ).Value, After:=.Range("D1"), LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
If Not (rng Is Nothing) Then
j = rng.Row
Do
.Range(.Cells(i, 1 ), .Cells(i, 3 )).Copy .Cells(.Cells(Rows.Count, 7 ).End(xlUp).Row + 1 , 7 )
.Range(.Cells(rng.Row, 4 ), .Cells(rng.Row, 6 )).Copy .Cells(.Cells(Rows.Count, 10 ).End(xlUp).Row + 1 , 10 )
Set rng = .Range("D:D").FindNext(rng)
Loop While j <> rng.Row
End If
i = i + 1
Loop
End With
End Sub
