Копирование данных из одной таблицы в другую согласно названиям строк и столбцов

[rumynka]

1. У меня есть таблица с исходными данными, там указано количество товаров по названию и стране происхождения.
2. мне нужно перенести цифры (количество товаров) согласно названию и стране происхождения из таблицы «Исходные данные» в таблицу «Копия». Просто скопировать я не могу, потому что названия товаров и стран в таблице «Копия» указанны в другом порядке.
3. Я пробовала задать два массива Dim x as Range, y as Range
Задать область для x, y
Set x=Range(„A:A“)
Set y=Range(“B:D”)
Set x=y
Задать шлейф: чтобы программа открыла «Исходные данные», просмотрела название и данные (цифры), запомнила. Потом открыла «Копия» сравнила по названиям строк и столбцов и вставила нужное значение.
Но я к сожалению не так хорошо знаю vba чтобы написать этот код(((

что то не так

Sub Макрос1()
Dim x As Range, y As Range
Set x = Range("A:A")
Set y = Range("B:D")
Set x = y
Do
Windows("Исходные данные.xls").Activate
Sheets("Лист3").Select
If Cells(i, 2) <> "" Then
i = i + 1
End If
Loop

Do
Windows("Копия.xls").Activate
Sheets("Лист3").Select
If Cells(i, 1) = x Then
Cells(i, 2) = y
End If

Loop
End Sub

Помогите,пожалууйста, кто чем может

[HandKot]

ИМХО лучше объявить коллекцию, заполнить ее исходными данными

Код:

Public Type Tovar
    TovarA As Integer
    TovarB As Integer
    TovarC As Integer
End Type
.....
Dim Tovary As Collection

' В цикле заполняем ее исходными данными

Dim t As Tovar

For ...
  t.TovarA = ...
  t.TovarB = ...
  t.TovarC = ...

  a.Add t, Country  'где Country  - значение из столбца А (будет ключем клооекции)

Next

а потом из нее уже запостить в копии

[Dimka]

HandKot, а почему лучше?

[HandKot]

если перейти потом на лист Копия.xls
и пойти по тем данным, в данном случае Country , то в коллекции проще найти искомое значение, так оно является ключем.
В результате, не надо делать лишние пробеги по массиву, если был бы он

[Dimka]

HandKot, вот именно.

Из твоих слов следует, что коллекция должна быть упорядоченной (отсортированной) по ключу. Между тем неизвестно, что там в листах. Если там данные сразу упорядочены, то и без коллекции будет нормальный однопроходный алгоритм.