Создание значений на основе одного столбца (без дублировани)

[Richard123]

Добрый день!

Есть вопрос как сделать в макросе создание списка данных содержащих, на основе имеющихся данных?

Что хочу заменить макросом:
В исходной выгрузке есть недостающие для дальнейшей обработке строки. Это не очень приятно, т.к. дальше эти данные используются в сводной таблице... а нужных строк с нулевым значением - нет.
Пока работает через копирование всех данных на другой лист и изменение стобцов. Но чем больше параметров надо менять, тем больше раз множится инфа... и все тормозит =(

Что есть:
Выгрузка, в которой на основание данных первого столбца (там прописаны модели (текстом). В этой выгрузке данные в первом столбце дублируются. Надо сделать чтобы исходя из названий в первом столбце получить 3 строки. Вот так:

Есть
Model1
Model2
model3
model1
model4
и так далее

Что нужно:
Model1 | A1 | 0
Model1 | A2 | 0
Model1 | A3 | 0
Model2 | A1 | 0
Model2 | A2 | 0
Model2 | A3 | 0
Model3 | A1 | 0
Model3 | A2 | 0
Model3 | A3 | 0


Подскажите пожалуйста как сделать?

[EducatedFool]

Пример файла прикрепите - что есть, и что надо получить.

[Richard123]

Вот пример. Есть лист "Дано" и есть "Надо"
Смысл попытаться обойти метод копирования всех данных (их в 10-ки раз больше чем в примере как по строкам так и поколонкам, на там не меняемые значения).

[Richard123]

Есть предложения?

[nilem]

Записал макрорекордером:

Sub Макрос1()
    ActiveSheet.Range("$A$1:$D$19").RemoveDuplicates Columns:=Array(1, 3), Header _
        :=xlYes
End Sub

[Richard123]

Сообщение от nilem

Записал макрорекордером:

Sub Макрос1()
    ActiveSheet.Range("$A$1:$D$19").RemoveDuplicates Columns:=Array(1, 3), Header _
        :=xlYes
End Sub

Макрорекодером не интересно, т.к. длина выгрузки может быть любой, как и кол-во столбцов.

Впринципе мне кажется что нужно вводить переменные и от этого скакать.
Переменные для ROWS и COLUMNS и дальше под ARRAY. Тогда возможно получиться избежать ситуации когда есть "лишний столбец" и длина выгрузки варьируется от выгрузки к выгрузки)

Другое дело сработает ли?))