Yeti_magic,
Код |
---|
Sub d() Dim arr, arr2, i As Long, j As Long, lr As Long Dim col2 As New Collection lr = Cells(Rows.Count, 2).End(xlUp).Row lr2 = Cells(Rows.Count, 5).End(xlUp).Row arr = Range(Cells(6, 2), Cells(lr, 3)): arr2 = Range(Cells(6, 5), Cells(lr2, 6)) For i = LBound(arr2) To UBound(arr2) On Error Resume Next col2.Add arr2(i, 1) & "///" & arr2(i, 2), CStr(arr2(i, 1) & "///" & arr2(i, 2)) Next i For i = LBound(arr) To UBound(arr) On Error Resume Next col2.Add arr(i, 1) & "///" & arr(i, 2), CStr(arr(i, 1) & "///" & arr(i, 2)) Next i arr2 = Range(Cells(6, 5), Cells(lr2, 6)).ClearContents ReDim arr2(1 To col2.Count, 1 To 2) For i = 1 To col2.Count arr2(i, 1) = Split(col2(i), "///")(0) arr2(i, 2) = Split(col2(i), "///")(1) Next i Range("E6").Resize(UBound(arr2), 2) = arr2 End Sub |
Не бойтесь совершенства. Вам его не достичь.