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

[Анастасия Дмитриев]

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

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

[nilem]

Попробуйте вот это вставить в модуль книги "Копия"

Sub ert()
Dim ish As Range, str As String
Set ish = Workbooks("Исходные данные.xls").Sheets("Лист3").Range("A1").CurrentRegion
str = "'[Исходные данные.xls]Лист3'!"
With ThisWorkbook.Sheets("Лист3").Range("A1").CurrentRegion
    .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Formula = _
    "=INDEX(" & str & ish.Address & ",MATCH(" & .Cells(2, 1).Address(0, 1) & "," & str & ish.Columns(1).Address & _
    ",0),MATCH(" & .Cells(1, 2).Address(1, 0) & "," & str & ish.Rows(1).Address & ",0))"
    .SpecialCells(xlCellTypeFormulas, 16).ClearContents
    .Value = .Value
End With
End Sub

Обе книги д.б. открыты

[kuklp]

Ответил здесь:
http://www.cyberforum.ru/vba/thread416983.html