копирование из одной ячейки в множество ячеек с одинаковыми параметрами

[andreton]

Добрый день всем!

Подскажите, кто знает, как автоматически скопировать значение одной ячейки с определенным параметром в множество ячеек с таким же параметром. Пример в файле: Исх - то что есть, Вых - то, что должно получиться. Позиций может быть намного больше. Заранее, спасибо!

[Daddy]

Если поменять столбцы местами, то можно воспользоваться функцией "=впр()" в сочетании с "=сцепить" (если я правильно понял что ты хочешь)

[Hugo121]

Алгоритм такой - берём оба диапазона каждый в свой массив.
Затем тупо перебором цикл в цикле.
Внешний - по массиву с критериями, внутренний - по данным, куда нужно добавить цифры.
При совпадении - добавляем в массив цифры.
В конце выгрузка результата.
Если важно время - можно для результатов сделать два отдельных массива (параллельно с массивом данных) и заносить цифры в них и выгружать только их (а проверять массив с данными).

Нужен сам код или уже понятно?

[Daddy]

"Затем тупо перебором цикл в цикле." если решать проблему программно, то полностью согласен, но "берём оба диапазона каждый в свой массив" это зачем? Если данных может быть намного больше, то оперативка ведь не резиновая.

[andreton]

как это будет работать - не ясно пришли реализованный пример (с функциями)

нужно чтобы нажатием одной единой клавиши(макросом) свершилось чудо!

[Hugo121]

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

"Затем тупо перебором цикл в цикле." если решать проблему программно, то полностью согласен, но "берём оба диапазона каждый в свой массив" это зачем? Если данных может быть намного больше, то оперативка ведь не резиновая.

Я думаю, лист Экселя с данными, как в примере, в память поместиться должен.
Ну а если не лезет, можно ведь брать частями.
Или Вы предлагаете перебирать ячейки, если данных так много, что в память не помещаются?
Или это намёк на ADO?

[andreton]

Hugo121, нужен код, если не сложно... нет времени разбираться...

[Hugo121]

Схематично, на двух массивах:

Sub ciklVcikle()
Dim a, b
Dim i As Long, ii As Long
a = [a1:f8]
b = [h1:m25]

For i = 1 To UBound(a)
For ii = 1 To UBound(b)
If b(ii, 2) = a(i, 3) Then
If b(ii, 3) = a(i, 4) Then
If b(ii, 5) = a(i, 5) Then
If b(ii, 6) = a(i, 6) Then
b(ii, 1) = a(i, 1): b(ii, 4) = a(i, 2)
End If
End If
End If
End If
Next ii, i

[h1:m25] = b
End Sub

Добавьте динамическое определение диапазонов.
Ну или просто тупо пропишите в коде.

[andreton]

Спасибо огромное! Все сработало очень даже нормально! Выручили! Вопрос решен!