|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.11.2011, 16:19 | #1 |
Новичок
Джуниор
Регистрация: 10.11.2011
Сообщений: 2
|
Сравнение столбцов Exel
Добрый день!
Помогите написать скрипт сравнения сталбцов, ибо в Exel я полный ноль.В прилогаемом файле есть 2 листа подготовка и импорт в ГДП, в листе импорт в ГДП есть перечень тэгов с описанием и размерностью(столбец B и C) которые соответствуют каждому тэгу. В листе подготовка есть перечень необходиммых тэгов(часть тэгов из листа импорт в ГДП) в столбце B , необходимо взять данные о каждом тэге(столбец В и С на листе импорт в ГДП) и присвоить эти данные тэгам в столбцы С(описание сигнала) и D(размерность). |
10.11.2011, 17:01 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Попробуйте сделать макросом из
http://hugo.nxt.ru/CompareFiles.Find.rar Настройки под Ваш пример: Файл - приёмник: C:\tmp\lirik88\сравнение.xls Файл - источник: C:\tmp\lirik88\сравнение.xls Столбцы сравнения в приёмнике: b Столбцы сравнения в источнике: a Лист - приёмник (№): 2 Лист - источник (№): 1 Столбцы - приёмники данных копирования: c,d Столбцы - источники данных копирования: b,c Делает небыстро, но пока я писал этот текст - сделалось (6800 совпадений) Можно ещё дополнительно поставить пометки у найденных, чтоб картина была яснее 15 попыток free...
webmoney: E265281470651 Z422237915069 R418926282008
|
10.11.2011, 17:42 | #3 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Или вот индивидуальный бесплатный код именно под эту задачу - очень быстро (0,98 сек. на небыстрой машине), но только под эту задачу...
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 10.11.2011 в 17:45. |
10.11.2011, 17:42 | #4 |
Новичок
Джуниор
Регистрация: 10.11.2011
Сообщений: 2
|
Спасибо, все решилось простиньким скриптом
Sub Find_Matches() Dim r As Range Dim y As Long Dim wb As Workbook Set wb = ThisWorkbook Dim ws As Worksheet Set ws = wb.Worksheets(6) For i = 2 To 7012 With ws.Range("a2:a9084") Set r = .Find(ws.Cells(i, 6), LookIn:=xlValues) If Not r Is Nothing Then y = r.Row ws.Cells(i, 7) = Cells(y, 2) ws.Cells(i, 8) = Cells(y, 3) End If End With Next End Sub предварительно данные обеденил в 1 лист для удоства итоговые значения передвались в 7 и 8 столбцы. |
10.11.2011, 18:01 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну если и сами можете - то советую второй скрипт посмотреть, ибо быстрый
webmoney: E265281470651 Z422237915069 R418926282008
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сравнение столбцов | sidanarchy | Microsoft Office Excel | 7 | 25.02.2011 09:24 |
Сравнение столбцов | Nakrul | Microsoft Office Excel | 11 | 17.02.2011 16:12 |
Сравнение столбцов в Excel | Laa911 | Microsoft Office Excel | 61 | 21.08.2010 13:11 |
Не хватает столбцов в Exel 2003 | Anhel | Microsoft Office Excel | 4 | 21.04.2010 14:03 |
помогите изменить название столбцов на листе Exel | ari23 | Microsoft Office Excel | 2 | 12.08.2009 10:43 |