Всем привет. У меня в экселе 2 столбца в которых коды, причем там много одинаковых кодов. В первом столбце грубо говоря 27000 кодов, во втором 24000 кодов. Мне надо каким-то образом вычислить и сделать третьим столбцом 3000 кодов, которые есть в первом стоблце, но которых нет во втором. Заранее спасибо!
Всем привет. У меня в экселе 2 столбца в которых коды, причем там много одинаковых кодов. В первом столбце грубо говоря 27000 кодов, во втором 24000 кодов. Мне надо каким-то образом вычислить и сделать третьим столбцом 3000 кодов, которые есть в первом стоблце, но которых нет во втором. Заранее спасибо!Koman
Если грубо и одноразово, а дубликатов в столбцах нет, копируете второй столбец под первый, УФ выделяете не повторяющиеся значения, сортируете по цвету, копируете Ваши 3 000 кодов.
Если грубо и одноразово, а дубликатов в столбцах нет, копируете второй столбец под первый, УФ выделяете не повторяющиеся значения, сортируете по цвету, копируете Ваши 3 000 кодов.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
StoTisteg, надо не грубо, надо чтобы правильно все было, так как эти коды-коды товаров и потом по этим кодам пойдет загрузка товаров в интернет-магазин. Если ошибиться, то работать не будет. А еще есть какой нибудь вариант? А что такое УФ выделение?))) Я с экселем не очень общаюсь
StoTisteg, надо не грубо, надо чтобы правильно все было, так как эти коды-коды товаров и потом по этим кодам пойдет загрузка товаров в интернет-магазин. Если ошибиться, то работать не будет. А еще есть какой нибудь вариант? А что такое УФ выделение?))) Я с экселем не очень общаюсьKoman
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Found = False For j = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 1).Value = Cells(j, 2).Value Then Found = True Exit For End If Next j If Not Found Then Counter = Counter + 1 Cells(Counter, 3).Value = Cells(i, 1).Value End If Next i
End Sub
[/vba]
Можно еще макросом
[vba]
Код
Public Sub Distinct()
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Found = False For j = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 1).Value = Cells(j, 2).Value Then Found = True Exit For End If Next j If Not Found Then Counter = Counter + 1 Cells(Counter, 3).Value = Cells(i, 1).Value End If Next i
Можно формулами обойтись, например универсальной ВПР(), или СЧЁТЕСЛИ(), или ПОИСКПОЗ(), смотря что за коды - определите отсутствующие, затем вручную сортировка и копирование.
Можно формулами обойтись, например универсальной ВПР(), или СЧЁТЕСЛИ(), или ПОИСКПОЗ(), смотря что за коды - определите отсутствующие, затем вручную сортировка и копирование.Hugo
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Found = False For j = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 1).Value = Cells(j, 2).Value Then Found = True Exit For End If Next j If Not Found Then Counter = Counter + 1 Cells(Counter, 3).Value = Cells(i, 1).Value End If Next i
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Found = False For j = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 1).Value = Cells(j, 2).Value Then Found = True Exit For End If Next j If Not Found Then Counter = Counter + 1 Cells(Counter, 3).Value = Cells(i, 1).Value End If Next i
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Уберите излишнее цитирование - Уберите внешнюю ссылку (положите картинку на этот сайт)
До исправления нарушений ответы будут удаляться администрацией
Я знаю
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Уберите излишнее цитирование - Уберите внешнюю ссылку (положите картинку на этот сайт)
До исправления нарушений ответы будут удаляться администрацией_Boroda_