VBS как написать цикл Do While... Loop с исключением повторений

[Alex_Dom]

Есть столбецы с повторяющимися значениями. Есть цикл Do While... Loop обрабатывающий этот столбец до пустого значения. Как избавиться от повторяющихся значений?
Сравнивать нужно по двум ячейкам
Cells(i, 2) И Cells(i, 3)
Если строки равны по этим параметрам то записывать только одну.
Цикл:

'дизайны
        Set FILES = xml.createElement("FILES")
  i = Range("FirstID").Row
  Do
			Set FILE = xml.createElement("File")
			FILE.setAttribute "ID", Cells(i, 1)
			FILE.Text = Cells(i, 2) ' название файла 

			FILE.setAttribute "Angle", Cells(i, 3) ' угол поворота 
			objRoot.appendChild FILE
      i = i + 1
 'пока не будет пустой ячейки с именем файла
 Loop Until Cells(i, 2) = ""
		objRoot.appendChild FILES

[Казанский]

Можно применить к диапазону .RemoveDuplicates (Данные - Работа с данными - Удалить дубликаты).
Или в VBA сначала собрать в словаре ключи cells(i,2) & vbtab & cells(i,3) , потом сплитить ключи и записывать в хмл.

[Alex_Dom]

И как такое через словари сделать?

[Казанский]

Вместо существующего цикла Do-Loop следующее. Не проверял - файла-примера нет.

  With CreateObject("scripting.dictionary")
    .comparemode = vbTextCompare 'не различать регистр
    Do
      .Item(Cells(i, 2) & vbTab & Cells(i, 3)) = Cells(i, 1)
      i = i + 1
    Loop Until Cells(i, 2) = ""  'пока не будет пустой ячейки с именем файла

    For Each x In .keys
      Set FILE = XML.createElement("File")
      FILE.setAttribute "ID", .Item(x)
      FILE.Text = Split(x, vbTab)(0)                          ' название файла
      FILE.setAttribute "Angle", Split(x, vbTab)(1)            ' угол поворота
      objRoot.appendChild FILE
    Next
  End With

[Alex_Dom]

Вот файл.
Заменил Do-Loop на ваш код. Результатат нет т.к. в XML выдаёт
<File ID="" Angle=""></File>

[Alex_Dom]

Разобрался.
Нужно было i поправить
i = Range("FirstID").Row 'возвращаем номер строки первой ячейки в таблице дизайнов

Спасибо.