Как программно отфильтровать диапазон ячеек?

[TimeStopper]

Есть диапазон ячеек (в файле обозначен красным цветом).
Мне надо получить из него массив, состоящий из уникальных значений 6+7 столбцов.
Я имею понимание, как это сделать через filter...этот весь диапазон перевести в одномерный массив, отфильтровать и обратно вернуть.
Ну это как-то не технологично, что-ли )

[AleksandrH]

А в гугла спрашивали?
LMGFY

[EducatedFool]

Мне надо получить из него массив, состоящий из уникальных значений 6+7 столбцов.

массив одномерный или двумерный?
зачем этот массив нужен?
массив нужен в памяти (для обработки макросом), или на листе? если на листе - то где и в каком виде?

[TimeStopper]

AleksandrH, у гугла спрашивал, но про фильтрацию...про уникальные значения не спрашивал )) спасибо! щас попробую доработать третий способ, надеюсь справлюсь )
EducatedFool, на листе он мне не нужен, в двухмерном виде нужен, я с ним еще дополнительно работать буду, а потом уже на лист помещу

[TimeStopper]

Применил я "нагугленный" способ, и он мне из всего диапазона ячеек вывел уникальные значения, которые расположил в столбик. Это не то, что мне нужно...как прийти к тому что мне нужно, у меня что-то не получилось.
Попробую объяснить более грамотно, что я хочу ))
1. Наверно мне нужен не массив, мне нужен такой же диапазон ячеек, пускай он расположится на том же листе, рядом с начальным диапазоном.
2. Рассматриваемым элементом диапазона - является строка. Итоговый диапазон должен состоять только из уникальных строк.
3. Уникальность строк оценивается только по значениям в столбцах 6 и 7 одновременно.

Не знаю очень понятно или нет.
По факту этот массив это координаты стержней: x1,y1,z1 и x2,y2,z2. Некоторые стержни находятся друг над другом. В таких случаях меня интересует только один из этих стержней, остальные надо удалить.

[IgorGO]

прочитал п.1, понимаю, что "грамотно" не получается

он расположится на том же листе, рядом с начальным диапазоном

понятие рядом в данном случае совершенно не определенное
рядом - это отспупив сколько ячеек?
рядом это отспупив
- вправо
- влево
- вверх
- вниз?
а если исходный и диапазон результат соприкоснуться уголками - это рядом? Пусть бросит в меня камень, кто докажет что это не рядом.

дальше просто не стал читать, чтобы не сеять панику дурными вопросами.

[TimeStopper]

Спасибо уже за то, что вы мне ответили!
Это не принципиально, но давайте отступим в право один столбец, и с той же строки что начинается начальный диапазон начнем итоговый.
Почему не принципиально, потому что я потом этот диапазон все равно передербаню, мне просто вот этот процесс получения уникальных строчек не поддается, остальное вроде могу как-нибудь написать )

[IgorGO]

этот

Sub Unique67()
  Dim d, rg As Range, r As Long
  Set d = CreateObject("scripting.dictionary"):  rg = Cells(5, 1):  d.Add Cells(5, 6) & Cells(5, 7), 1
  For r = 6 To Cells(Rows.Count, 1).End(xlUp).Row
    If Not d.exists(Cells(r, 6) & Cells(r, 7)) Then  d.Add Cells(r, 6) & Cells(r, 7), 1: Set rg = Union(rg, Cells(r, 1))
  Next
  For r = 1 To 11
    rg.Offset(0, r - 1).Copy Cells(5, r + 12)
  Next
End Sub

в модуль листа и выполните любым удобным способом.

[TimeStopper]

большое спасибо!

[IgorGO]

пожалуйста, а то, что я здесь:

  Set d = CreateObject("scripting.dictionary"):  rg = Cells(5, 1):  d.Add Cells(5, 6) & Cells(5, 7), 1

ошибку сделал - ничего?

так будет правильно:

Sub Unique67()
  Dim d, rg As Range, r As Long
  Set d = CreateObject("scripting.dictionary"):  Set rg = Cells(5, 1):  d.Add Cells(5, 6) & Cells(5, 7), 1
  For r = 6 To Cells(Rows.Count, 1).End(xlUp).Row
    If Not d.exists(Cells(r, 6) & Cells(r, 7)) Then d.Add Cells(r, 6) & Cells(r, 7), 1: Set rg = Union(rg, Cells(r, 1))
  Next
  rg.Resize(, 11).Copy Cells(5, 13)
End Sub