Дайте совет

[leprosy]

беда в том, что я не пойму как мне написать верно формулу.
Писала так:
=IF(A2:A20=E2:E20;1;"BEDA")IF(A2:A20<>E2:E20;12;"beda"), она сравнивать сравнивает, но только рядом стоящие строки. А надо, чтоб бегала по всему документу, так как коды могут не совпадать по строкам.
Да ещё надо чтоб копировала A, B, C, E,F,G строки в H,I,J.

Хотела применить функции else, or, go to, copy, но не получилось.

[незваный гость]

И не получится -- это в значительной степени противоречит идее программирования эл. таблиц.

Введиите (скрытую) колонку (я буду обозначать ее Z). В ней напишите результат поиска (на примере Z3):

=ISERROR(MATCH(A3;$B$1:$B$5;1))

Затем в каждой из клеток H,I,J пишите копирование(например, B3 -> I3, пишем в I3):

=If($Z3,B3,"")

Отдельная колонка нужна для оптимизации процесса. -- иначе поиск будет происходить столько же раз, сколько у Вас колонок.

[photon]

незванный гость писал(а):

И не получится -- это в значительной степени противоречит идее программирования эл. таблиц.

Введите (скрытую) колонку (я буду обозначать ее Z). В ней напишите результат поиска (на примере Z3):

Можно пойти другим путем - прикрутить макрос.

[незваный гость]

Много проблем с макрами. По умолчания (я надеюсь, и у Вас), они выключены. А отвечать при каждом открытии таблицы, включать ли их -- надоедает до безумия (впрочем, я и так безумен : ). Они заметно сложнее в написании и отладке -- достаточно сказать, что доступ к клетке достаточно непрозрачен в программе. Поэтому, пока можно обойтись без них -- я стараюсь обходиться.

[photon]

Я, если делаю, то обычно (поскольку не очень в этом деле силен) использую в меню "Сервис->Макрос->Начать запись", а потом то, что сделаю, уже ручками добиваю. Но, конечно, стараюсь избегать их, если нахожу другой путь. У меня не выключены: "Разрешается запуск только подписанных макросов из надежных источников"

[незваный гость]

Надежных источников не бывает. А подписаться и я могу.

То, что я -- параноик, еще не значит, что за мной не гонятся.

[photon]

незванный гость писал(а):

А подписаться и я могу

Естественно, и я свои подписываю. Конечно, риск есть... но он есть всегда - не через макросы, так другим путем.
Я не отстаиваю, что этот путь лучше - это просто другой путь, вариант решения и не более.

[leprosy]

Dim a As Range
Dim I, J as Long

With ThisWorkbook.Worksheets(1)
I = 1
Do While .Cells(I, 1).Value <> ""
If Not a is Nothing Then
Range(.Cells(I, 1), .Cells(I, 3)).Copy .Cells(.Cells(1, "I").Currentregion.Rows.Count+1, "I")
J = a.Row
Else
J = 1
End
set a = .Columns("D:D").Find(What:=.Cells(I, 1).Value, Parth:=xlWhol, After:=.Cells(J, "D"))
If a is Nothing Then I = I+1
Loop

-------------------------------------------------------------------------------------
Вот к примеру вариант решения этой проблемы, но у меня не идет финкция Range.Что делать?