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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2016, 23:57   #1
Catoffnet1985
Новичок
Джуниор
 
Регистрация: 13.01.2016
Сообщений: 2
По умолчанию Помогите пожалуйста вроде бы с простой задачей.

Всем доброго времени суток!
Столкнулся с проблемой на первой взгляд очень простой, НО... )
Ничего не получается, точнее сказать не знаю где искать/

Суть такова:
В столбце A присутствуют номера контейнеров к примеру T00000001231 (5000 тысяч)
В столбце B записи тех же самых контейнеров НО не все (1300 шт)

Задача: Вывести в столбец C номера контейнеров который остаются после сравнения столбцов A и B ... то есть нужно исключить совпадения...
Заранее спасибо.
Catoffnet1985 вне форума Ответить с цитированием
Старый 14.01.2016, 00:47   #2
gling
Форумчанин
 
Регистрация: 23.01.2010
Сообщений: 261
По умолчанию

Здравствуйте. В столбец С пишете формулу
Код:
=СЧЁТЕСЛИ(B:B;A1)
и протягиваете её до последнего значения в столбце А. Устанавливаете фильтр в столбце С по нулевым значениям. Выделятся все номера которых нет в столбце В. Копируйте столбец А и вставьте на другой лист, или сняв фильтр вставьте в столбец С.
А такая формула выведет в столбец С отсутствующий номер в столбце В.
Код:
=ЕСЛИ(СЧЁТЕСЛИ(B:B;A1);A1;"")

Последний раз редактировалось gling; 14.01.2016 в 00:50.
gling вне форума Ответить с цитированием
Старый 14.01.2016, 00:51   #3
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

В С2 забей:
=ЕСЛИОШИБКА(ПОИСКПОЗ(B2;$A$1:$A$50; 0);B2)
Demetros вне форума Ответить с цитированием
Старый 14.01.2016, 00:58   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

1. правой кнопкой по ярлыку листа с данными
2. исходный текст
3. скопируйте в открывшееся окно этот
Код:
Sub WithOutDouble()
  Dim r As Long, rg As Range
  r = 1:  Columns(3).ClearContents
  Do While Not IsEmpty(Cells(r, 1))
    If WorksheetFunction.CountIf(Columns(2), Cells(r, 1)) = 0 Then
      If rg Is Nothing Then Set rg = Cells(r, 1) Else Set rg = Union(rg, Cells(r, 1))
    End If
    r = r + 1
  Loop
  If Not rg Is Nothing Then rg.Copy Cells(1, 3)
End Sub
4. Выполните его любым доступным способом
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 14.01.2016, 18:31   #5
Catoffnet1985
Новичок
Джуниор
 
Регистрация: 13.01.2016
Сообщений: 2
По умолчанию Всем Всем Всем

Огромное Спасибо!
Catoffnet1985 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Простой, вроде, пример на С++ ЛЕШЬ Общие вопросы C/C++ 4 25.03.2012 16:49
Помогите с простой задачей в DELPHI! pliz!!! maksimka Помощь студентам 3 09.03.2011 20:50
помогите пожалуйста с задачей! Coolmanz Помощь студентам 2 06.01.2008 23:07
Помогите бедному студенту с простой задачей Novi4ok Помощь студентам 3 03.01.2007 09:41