Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вычислить коды из двух столбцов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вычислить коды из двух столбцов (Формулы/Formulas)
Вычислить коды из двух столбцов
Koman Дата: Понедельник, 07.05.2018, 17:46 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет. У меня в экселе 2 столбца в которых коды, причем там много одинаковых кодов. В первом столбце грубо говоря 27000 кодов, во втором 24000 кодов. Мне надо каким-то образом вычислить и сделать третьим столбцом 3000 кодов, которые есть в первом стоблце, но которых нет во втором. Заранее спасибо!
 
Ответить
СообщениеВсем привет. У меня в экселе 2 столбца в которых коды, причем там много одинаковых кодов. В первом столбце грубо говоря 27000 кодов, во втором 24000 кодов. Мне надо каким-то образом вычислить и сделать третьим столбцом 3000 кодов, которые есть в первом стоблце, но которых нет во втором. Заранее спасибо!

Автор - Koman
Дата добавления - 07.05.2018 в 17:46
StoTisteg Дата: Понедельник, 07.05.2018, 17:55 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1016
Репутация: 86 ±
Замечаний: 0% ±

Excel 2010
Если грубо и одноразово, а дубликатов в столбцах нет, копируете второй столбец под первый, УФ выделяете не повторяющиеся значения, сортируете по цвету, копируете Ваши 3 000 кодов.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеЕсли грубо и одноразово, а дубликатов в столбцах нет, копируете второй столбец под первый, УФ выделяете не повторяющиеся значения, сортируете по цвету, копируете Ваши 3 000 кодов.

Автор - StoTisteg
Дата добавления - 07.05.2018 в 17:55
Koman Дата: Понедельник, 07.05.2018, 18:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
StoTisteg, надо не грубо, надо чтобы правильно все было, так как эти коды-коды товаров и потом по этим кодам пойдет загрузка товаров в интернет-магазин. Если ошибиться, то работать не будет.
А еще есть какой нибудь вариант?
А что такое УФ выделение?))) Я с экселем не очень общаюсь
 
Ответить
СообщениеStoTisteg, надо не грубо, надо чтобы правильно все было, так как эти коды-коды товаров и потом по этим кодам пойдет загрузка товаров в интернет-магазин. Если ошибиться, то работать не будет.
А еще есть какой нибудь вариант?
А что такое УФ выделение?))) Я с экселем не очень общаюсь

Автор - Koman
Дата добавления - 07.05.2018 в 18:01
abtextime Дата: Понедельник, 07.05.2018, 18:09 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Можно еще макросом

[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

End Sub
[/vba]
К сообщению приложен файл: 9834455.xlsm(15.0 Kb)
 
Ответить
СообщениеМожно еще макросом

[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

End Sub
[/vba]

Автор - abtextime
Дата добавления - 07.05.2018 в 18:09
Hugo Дата: Понедельник, 07.05.2018, 19:19 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2854
Репутация: 639 ±
Замечаний: 0% ±

Можно формулами обойтись, например универсальной ВПР(), или СЧЁТЕСЛИ(), или ПОИСКПОЗ(), смотря что за коды - определите отсутствующие, затем вручную сортировка и копирование.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеМожно формулами обойтись, например универсальной ВПР(), или СЧЁТЕСЛИ(), или ПОИСКПОЗ(), смотря что за коды - определите отсутствующие, затем вручную сортировка и копирование.

Автор - Hugo
Дата добавления - 07.05.2018 в 19:19
Koman Дата: Вторник, 08.05.2018, 17:52 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
abtextime, спасибо, попробуем макросом)
Вообще всем спасибо, ушел пробовать все варианты.
Как и что - отпишусь ))
 
Ответить
Сообщениеabtextime, спасибо, попробуем макросом)
Вообще всем спасибо, ушел пробовать все варианты.
Как и что - отпишусь ))

Автор - Koman
Дата добавления - 08.05.2018 в 17:52
Koman Дата: Четверг, 10.05.2018, 16:55 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Можно еще макросом

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

End Sub


вот такая ошибка при работе с макросами.
Может кто знает в чем дело?
http://prntscr.com/jg537c
 
Ответить
Сообщение
Можно еще макросом

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

End Sub


вот такая ошибка при работе с макросами.
Может кто знает в чем дело?
http://prntscr.com/jg537c

Автор - Koman
Дата добавления - 10.05.2018 в 16:55
abtextime Дата: Четверг, 10.05.2018, 17:00 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Koman, файл прислать не можете?

Еще Debug нажмите, посмотрите, на какой строке кода идет ошибка

Также попробуйте запустить макрос в режиме отладки (Alt+F11 и F8)


Сообщение отредактировал abtextime - Четверг, 10.05.2018, 17:02
 
Ответить
СообщениеKoman, файл прислать не можете?

Еще Debug нажмите, посмотрите, на какой строке кода идет ошибка

Также попробуйте запустить макрос в режиме отладки (Alt+F11 и F8)

Автор - abtextime
Дата добавления - 10.05.2018 в 17:00
StoTisteg Дата: Четверг, 10.05.2018, 17:01 | Сообщение № 9
Группа: Авторы
Ранг: Старожил
Сообщений: 1016
Репутация: 86 ±
Замечаний: 0% ±

Excel 2010
На какую строку ругается?


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеНа какую строку ругается?

Автор - StoTisteg
Дата добавления - 10.05.2018 в 17:01
_Boroda_ Дата: Четверг, 10.05.2018, 17:02 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13245
Репутация: 5454 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Я знаю

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Уберите излишнее цитирование
- Уберите внешнюю ссылку (положите картинку на этот сайт)

До исправления нарушений ответы будут удаляться администрацией


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ знаю

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Уберите излишнее цитирование
- Уберите внешнюю ссылку (положите картинку на этот сайт)

До исправления нарушений ответы будут удаляться администрацией

Автор - _Boroda_
Дата добавления - 10.05.2018 в 17:02
StoTisteg Дата: Четверг, 10.05.2018, 17:48 | Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1016
Репутация: 86 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, от картинки вообще нет толку, как выглядит окено сообщения дебаггера, мы и так знаем.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение_Boroda_, от картинки вообще нет толку, как выглядит окено сообщения дебаггера, мы и так знаем.

Автор - StoTisteg
Дата добавления - 10.05.2018 в 17:48
_Boroda_ Дата: Четверг, 10.05.2018, 17:56 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13245
Репутация: 5454 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
от картинки вообще нет толку

А не волнует. По-любому она должна быть не на стороннем ресурсе, а здесь


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
от картинки вообще нет толку

А не волнует. По-любому она должна быть не на стороннем ресурсе, а здесь

Автор - _Boroda_
Дата добавления - 10.05.2018 в 17:56
StoTisteg Дата: Пятница, 11.05.2018, 11:18 | Сообщение № 13
Группа: Авторы
Ранг: Старожил
Сообщений: 1016
Репутация: 86 ±
Замечаний: 0% ±

Excel 2010
StoTisteg, надо не грубо, надо чтобы правильно все было

Грубо означает быстро и не особо задумываясь, а правильно, разумеется, будет.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
StoTisteg, надо не грубо, надо чтобы правильно все было

Грубо означает быстро и не особо задумываясь, а правильно, разумеется, будет.

Автор - StoTisteg
Дата добавления - 11.05.2018 в 11:18
StoTisteg Дата: Пятница, 11.05.2018, 11:32 | Сообщение № 14
Группа: Авторы
Ранг: Старожил
Сообщений: 1016
Репутация: 86 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, да она и здесь-то не нужна, я к этому.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение_Boroda_, да она и здесь-то не нужна, я к этому.

Автор - StoTisteg
Дата добавления - 11.05.2018 в 11:32
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вычислить коды из двух столбцов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!