Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сравнение двух столбцов с данными
 
#1
15.01.2012 20:14:30
Помогите пожалуйста с макросом который бы выполнял простую задачу  
есть столбец 1 и 2 с данными  
в столбец 3 нужно вывести данные из столбца 1 которые НЕ совпадают с данными из столбца 2  
 
Заранее благодарен
 
 
 
#2
15.01.2012 20:21:48
Возможны ли дубликаты в первом столбце?
 
 
 
#3
15.01.2012 20:34:35
в 1 столбце дубликатов нет во 2 тоже не будет  
только есть совпадения значений в столбцах 1 и 2 которые надо исключить
 
 
 
#4
15.01.2012 20:35:40
Public Sub www()  
   Dim a(), i&  
   a = Range([b2], [b2].End(xlDown).Offset(, 1)).Value
   ReDim b$(1 To UBound(a))  
   For i = 1 To UBound(a)  
       b(i) = a(i, 1)  
   Next  
   For i = 1 To UBound(a)  
       If Not IsEmpty(a(i, 2)) Then b = Filter(b, a(i, 2), 0)  
   Next  
   [d2].Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
15.01.2012 20:54:36
спасибо за ответ супер работает !
 
 
 
#6
15.01.2012 22:34:09
А вот интересно, в 1-м столбце есть слово "FAST" и его нет во 2-м столбце, его нужно переносить в 3-й столбец ? )
 
 
 
#7
16.01.2012 00:30:06
Привет, Паш. Во, глазастый! Filter работает по принципу "Содержится". Т.е. все равно, что *FAS*. Это я на твой вопрос Владимиру отвечаю:-)
Я сам - дурнее всякого примера! ...
 
 
 
#8
16.01.2012 00:40:54
привет, Серёг. Я просто Filter никогда не пользовался, и решил твой код потрессировать и обнаружил этот баг... Пытался использовать vbTextCompare и vbBinaryCompare, всё равно "FAST" убивается из массива при поиске "FAS"    
 
Придётся писать другой макрос для автора )) а то он половины (11-ти) кодов не досчитается в конце ))
 
 
 
#9
16.01.2012 00:41:16
А разве это правильно, если FAST не попадёт в третий столбец?
 
 
 
#10
16.01.2012 00:45:48
Ну, там править-то пару строчек и одну дописать:-) Автор пока молчит, мож ему так и нать?
Я сам - дурнее всякого примера! ...
 
 
 
#11
16.01.2012 00:54:02
Сделай заготовку :-)
 
 
 
#12
16.01.2012 00:55:15
На всякий:-)  
Public Sub www()  
   Dim a(), i&  
   a = Range([b2], [b2].End(xlDown).Offset(, 1)).Value
   ReDim b$(1 To UBound(a))  
   For i = 1 To UBound(a)  
       b(i) = "|" & a(i, 1) & "|"  
   Next  
   For i = 1 To UBound(a)  
       If Not IsEmpty(a(i, 2)) Then b = Filter(b, "|" & a(i, 2) & "|", 0)  
   Next  
   [d2].Resize(UBound(b) + 1) = Application.Transpose(b)
   [d2].Resize(UBound(b) + 1).Replace "|", ""
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#13
16.01.2012 01:00:05
Ещё вариант, немного побыстрее
 
 
 
#14
16.01.2012 01:00:24
ну, а я со Словарём предложу )
 
 
 
#15
16.01.2012 01:12:53
{quote}{login=Степлер}{date=16.01.2012 01:00}{thema=}{post}ну, а я со Словарём предложу ){/post}{/quote}Павел, я с объяснением про FAST опоздал, зато со словарем успел немного раньше :-)
 
 
 
#16
16.01.2012 01:20:14
Вы дуплетом:-) У меня первой мыслью было со словарем. Но я на сегодня уже несколько решений делал на словаре, скучнно. Решил повыпендриваться:-)
Я сам - дурнее всякого примера! ...
 
 
 
#17
16.01.2012 01:23:46
)) да со словарём проблем нет )) Просто я немного офигел, когда увидел, что Filter удаляет всё лишнее (*FAS*), я 3 раза прочитал встроенную Справку по Filter, поискал в Справки в Яндексе... думал-думал... потом спросил у тебя )  
 
В интернете нашёл пару примеров, но действительно не обратил внимание, что Filter удаляет элементы в режиме "содержит", а с виду такая хорошая функция была )))  
 
Когда Сергей написал про "содержит", то пошёл писать макрос со Словарём ))  
 
Вот можно было бы отключать эту фенечку (баг) в Filter, а не извращаться, как предложил Сергей с | , было бы интересней )))
 
 
 
#18
16.01.2012 01:27:18
и так... в виде интереса  
 
как лучше заполнять Словарь? так?  
 
oDict.Item(b(i, 1)) = vbNullString  
 
или так?  
 
oDict.Add b(i, 1), 1  
 
или без разницы как?
 
 
 
#19
16.01.2012 01:36:42
По мне, так это не баг, это фича. Когда бывает надо по "содержится", никаких лишних телодвижений. Ну а ячейка целиком... Другой подход.  
Посмотри, если не лень, здесь:  
http://www.planetaexcel.ru/forum.php?thread_id=33012  
и здесь:  
http://www.planetaexcel.ru/forum.php?thread_id=32854
Я сам - дурнее всякого примера! ...
 
 
 
#20
16.01.2012 01:47:44
Спасибо, Серёг, посмотрю
 
 
 
#21
16.01.2012 02:06:03
{quote}{login=Степлер}{date=16.01.2012 01:27}{thema=}{post}и так... в виде интереса  
 
как лучше заполнять Словарь? так?  
 
oDict.Item(b(i, 1)) = vbNullString  
 
или так?  
 
oDict.Add b(i, 1), 1  
 
или без разницы как?{/post}{/quote}  
Павел, вариант oDict.Item(b(i, 1)) = vbNullString немного быстрее
 
 
 
#22
16.01.2012 02:07:01
Спасибо.  
Все тот же Степлер.
 
 
 
Страницы: 1
Читают тему
Наверх