Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.12.2007, 07:15   #1
Shavminator
Пользователь Подтвердите свой е-майл
 
Регистрация: 03.12.2007
Сообщений: 49
По умолчанию Как извлечь из двух столбцов несовпадающие строки

Здравствуйте.
Помогите пожалуйста.
Случилось расхождение данных двух предприятиях по регистрационным номерам платежей.
Один платит другой берет, и получается два документа с одинаковыми рег.номерами.
Есть две столбца наполненными рег.номерами.
Длинна номеров от 6 до 9. а количество строк в этих столбцах около 15000, и разница на 202 строк т.е. на 202 платежей.
Первый столбец данные одного, а второй данные второго.
Нужно проверить столбцы на одинаковые номера, если номера совпадаются то пропускать.
Если какой, то номер в столбце не совпадет с ни одним номером в другом столбце, надо сделать так чтоб этот несовпадающий номер появился в другом определенном столбце, и так все эти 202 номера нужно извлечь в другой столбец.
Заранее благодарю.
Shavminator вне форума
Старый 28.12.2007, 09:56   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Пусть сравниваемые столбцы - это "A" и "B". Следующий макрос выведет все совпадающие значения в столбец "C":
Код:
Sub Comp()

    Dim i As Long, j As Long
    For i = 1 To Range("A65536").End(xlUp).Row
        For j = 1 To Range("B65536").End(xlUp).Row
            If Cells(i, 1) = Cells(j, 2) Then Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cells(i, 1)
        Next j
    Next i
    
End Sub
Вообще-то постановка задачи весьма запутана.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 28.12.2007 в 10:45. Причина: Добавлено
SAS888 вне форума
Старый 28.12.2007, 11:17   #3
WIC
Форумчанин Подтвердите свой е-майл
 
Регистрация: 21.09.2007
Сообщений: 138
По умолчанию

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

Предлагаю использовать ВПР.
В столбце С пишем (ячейка C2)
=ВПР(A2;$B:$B;1;ложь).

И так же для второго.
WIC вне форума
Старый 28.12.2007, 11:54   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

А если требуется извлечь все уникальные записи из столбцов "A" и "B" в столбец "C", то можно так:
Код:
Sub Comp()
   
    Dim i As Long, j As Long
    Columns(3).ClearContents
    For i = 1 To Range("A65536").End(xlUp).Row
        For j = 1 To Range("B65536").End(xlUp).Row
            If Cells(i, 1) = Cells(j, 2) Then GoTo Metka
        Next j
    Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cells(i, 1)
Metka: Next i
    For i = 1 To Range("B65536").End(xlUp).Row
        For j = 1 To Range("A65536").End(xlUp).Row
            If Cells(i, 2) = Cells(j, 1) Then GoTo Metka2
        Next j
    Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cells(i, 2)
Metka2: Next i
   
End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 28.12.2007, 12:23   #5
Shavminator
Пользователь Подтвердите свой е-майл
 
Регистрация: 03.12.2007
Сообщений: 49
По умолчанию

Ну огромное спасибо за коды ребята, выручили.
И еще поздравляю вас с новым годом.
Shavminator вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прибавление данніх из двух столбцов gavrylyuk Microsoft Office Excel 3 01.08.2008 11:40
Отображение в форме и таблице двух столбцов подстановок smoky Microsoft Office Access 5 01.07.2008 09:27
Извлечь в одну ячейку несколько значений из строки которые удовлетворяют заданному условию. Dorvir Microsoft Office Excel 5 08.04.2008 16:12
Выделение одной строки из двух одинаковых REMove Microsoft Office Excel 2 15.12.2007 16:03
Извлечь число из строки и присвоить его переменной. Adamant Общие вопросы C/C++ 3 12.11.2007 07:24