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

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

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

Доброго времени суток!
Помогите, пожалуста с решением следующей задачи (всё равно будет это макрос или есть решение стандартными функциями 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
1
2
3
4
5
6
7
8
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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Трапер 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 3

	Сравнение нескольких колонок с данными в Exel с выводом результата на другой лист 30.05.2012, 10:39. Показов 2653. Ответов 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
	Трапер, если я правильно понял, надо первые три столбца просто скопировать на второй лист, а в четвертом столбце искать слово из второго и найденную ячейку копировать в четвертый столбец на втором листе. 0

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

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

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