Сравнение нескольких колонок с данными в Exel с выводом результата на другой лист

@Трапер · Регистрация: 30.05.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Помогите, пожалуста с решением следующей задачи (всё равно будет это макрос или есть решение стандартными функциями Exel). Имеется несколько колонок - 1-я - ник, 2-я - набор букв и цифр (одно слово), 3-я набор цифр, 4-я - набор букв и цифр, но в ней обязательно присутствует цифробуквенный набор из 2-ой колонки. С первой по 3-ю колонки данные связаны ( пример: Тёма - ОП1245890 - 150) в четвёртой колонке может быть любой текст (пример: "уже давно ОП1245890 не было") причём данный текст может быть в любой ячейке 4 колонки.
Задача: на отдельном листе отсортировать данные, чтобы получилось четыре столбца следующего вида Тёма - ОП1245890 - 150 - уже давно ОП1245890 не было. если в 4-ой колонке не найдено совпадений-оставлять ячейку пустой, если найден дубль вписать в ячейку следующей колонки - 5-ой.
Понимаю, макрос может быть и сложно сделать, тогда может подробно, кто объяснит алгоритм - пойму - сам написать смогу, сейчас даже не представляю с какой стороны подступиться.
Заранее спасибо!

@sulfur · 30.05.2012, 11:12

Трапер, если я правильно понял, надо первые три столбца просто скопировать на второй лист, а в четвертом столбце искать слово из второго и найденную ячейку копировать в четвертый столбец на втором листе.

@Трапер · 30.05.2012, 11:31 **[ТС]**

Да, именно так.

@sulfur · 30.05.2012, 11:37

так в чем проблема, если вы макрос можете сами написать?
поиск значения в диапазоне:

Visual Basic

1	Set obCell = sheets("Лист1").[4:4].Find("ОП1245890", lookat:=xlPart)

Если найденных ячеек может быть несколько, то можно в цикле искать:

Visual Basic

with sheets("Лист1").[4:4]
set obLast = .Find("ОП1245890", lookat:=xlPart, searchdirection:=xlPrevious) 
set obCurr = obLast
do
set obCurr = .Find("ОП1245890", after:=obCurr, searchdirection:=xlNext)
'тут действия с найденной ячейкой
loop until obLast.address = obCurr.address
end with

копирование:

Visual Basic

1	obCurr.Copy Sheets("Лист2").Cells(i,4)

@Трапер · 30.05.2012, 11:59 **[ТС]**

Спасибо, суть уловил. Попробую набросать макрос. Небольшое уточнение, если можно, так как для каждого ника "ОП1245890" разное - это тоже в цикле каждую ячейку по порядку перебирать? Пробовал делать через массив, но он не выводится по ячейкам.

@sulfur · 30.05.2012, 12:01

да, вы все правильно поняли =)

Dragokas · 30.05.2012, 16:20

Сообщение от Трапер

Пробовал делать через массив, но он не выводится по ячейкам.

Все можно. Приводите пример, как Вы пробовали, а мы подскажем.

@Трапер 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 3
		1
	Сравнение нескольких колонок с данными в Exel с выводом результата на другой лист 30.05.2012, 10:39. Показов 2506. Ответов 6 Метки нет (Все метки) Доброго времени суток! Помогите, пожалуста с решением следующей задачи (всё равно будет это макрос или есть решение стандартными функциями Exel). Имеется несколько колонок - 1-я - ник, 2-я - набор букв и цифр (одно слово), 3-я набор цифр, 4-я - набор букв и цифр, но в ней обязательно присутствует цифробуквенный набор из 2-ой колонки. С первой по 3-ю колонки данные связаны ( пример: Тёма - ОП1245890 - 150) в четвёртой колонке может быть любой текст (пример: "уже давно ОП1245890 не было") причём данный текст может быть в любой ячейке 4 колонки. Задача: на отдельном листе отсортировать данные, чтобы получилось четыре столбца следующего вида Тёма - ОП1245890 - 150 - уже давно ОП1245890 не было. если в 4-ой колонке не найдено совпадений-оставлять ячейку пустой, если найден дубль вписать в ячейку следующей колонки - 5-ой. Понимаю, макрос может быть и сложно сделать, тогда может подробно, кто объяснит алгоритм - пойму - сам написать смогу, сейчас даже не представляю с какой стороны подступиться. Заранее спасибо! 0

@sulfur 200 / 98 / 2 Регистрация: 24.09.2011 Сообщений: 261
	30.05.2012, 11:12	2
	Трапер, если я правильно понял, надо первые три столбца просто скопировать на второй лист, а в четвертом столбце искать слово из второго и найденную ячейку копировать в четвертый столбец на втором листе. 0

@Трапер 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 3
	30.05.2012, 11:31 [ТС]	3
	Да, именно так. 0

@Трапер 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 3
	30.05.2012, 11:59 [ТС]	5
	Спасибо, суть уловил. Попробую набросать макрос. Небольшое уточнение, если можно, так как для каждого ника "ОП1245890" разное - это тоже в цикле каждую ячейку по порядку перебирать? Пробовал делать через массив, но он не выводится по ячейкам. 0

@sulfur 200 / 98 / 2 Регистрация: 24.09.2011 Сообщений: 261
	30.05.2012, 12:01	6
	да, вы все правильно поняли =) 1

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	30.05.2012, 16:20	7
	Сообщение от Трапер Пробовал делать через массив, но он не выводится по ячейкам. Все можно. Приводите пример, как Вы пробовали, а мы подскажем. 0