Сравнение двух столбцов

@GreenMan · Регистрация: 16.08.2015

Author24 — интернет-сервис помощи студентам

Доброго всем дня. Нужна помощь.

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

Есть вот такой код, но он не работает как нужно, а сравнивает только находящиеся друг напротив друга значения. Подскажите, пожалуйста, как его улучшить.

Visual Basic

Option Explicit
Private Sub CommandButton1_Click()
Dim Number1 As String, Number2 As String
Dim i As Long
 
For i = 2 To 16
    Number1 = Cells(i, 1)
    Number2 = Cells(i, 2)
                If Number1 = Number2 Then
                    Cells(i, 3) = "+"
                Else
                    Cells(i, 3) = "-"
                End If
Next i
      
End Sub

@Vlad999 · 24.07.2018, 14:51

обязательно макрос, ф-ция не подойдет?

Код

=ЕСЛИ(СЧЁТЕСЛИ($A$1:$A$20;B1);"+";"")

@GreenMan · 24.07.2018, 14:53 **[ТС]**

Это просто пример. "Настоящих" значений, которые нужно обсчитать - несколько тысяч. Лучше макрос.

@Burk · 24.07.2018, 15:24

GreenMan, за последнее время на форуме такие аналогичные темы, в первой отмечаются не совпавшие - малость изменить.
Сравнить два столбца с разных листов и вывести несовпадения на отдельный лист
Сравнение строк

@Baykal555 · 24.07.2018, 15:40

Можно же макросом функцию вставлять через FormulaR1C1,ориентируясь по последней строке.То же самое же будет.

@Hugo121 · 24.07.2018, 16:29

Сообщение от Baykal555

То же самое же будет

- только намноооого дольше... чем нормальный макрос. Но на несколько тысяч всё равно. На несколько сотен тысяч - разницу увидите.

@Catstail · 24.07.2018, 17:20

Visual Basic

'::: N1 - длина столбца 1
'::: N2 - длина столбца 2
 
 For i& = 2 To N1&
      Number1& = Cells(i&, 1).value
      For j&=2 to N2&
           Number2& = Cells(j&, 2).Value
           If Number1& = Number2& Then
              Cells(i&, 3).value = "+"
           Else
              Cells(i&, 3).Value = "-"
           End If
      Next j&
Next i&

@Hugo121 · 24.07.2018, 17:25

Catstail, так ведь толку не будет...
Первое несоответствие - ставим -
...
Первое соответствие - ставим +
...
Очередное несоответствие - ставим -
...
Нужно сразу после + выходить из цикла.
А вообще это на коллекциях или словарях делают, чтоб быстро было. Скорее всего по ссылкам выше такое есть, не смотрел.

@Catstail · 24.07.2018, 17:27

Hugo121, а, ну да, конечно:

Visual Basic

'::: N1 - длина столбца 1
'::: N2 - длина столбца 2
 
 For i& = 2 To N1&
      Number1& = Cells(i&, 1).value
      For j&=2 to N2&
           Number2& = Cells(j&, 2).Value
           If Number1& = Number2& Then
              Cells(i&, 3).value = "+"
              Exit For
           End If
      Next j&
      if Cells(i&, 3).value=" " then Cells(i&, 3).value="-"
Next i&

@Hilk · 24.07.2018, 18:13

Сообщение от Catstail

Hugo121, а, ну да, конечно:

Visual Basic

'::: N1 - длина столбца 1
'::: N2 - длина столбца 2
For i& = 2 To N1&
 Number1& = Cells(i&, 1).value
 For j&=2 to N2&
 Number2& = Cells(j&, 2).Value
 If Number1& = Number2& Then
 Cells(i&, 3).value = "+"
 Exit For
 End If
 Next j&
 if Cells(i&, 3).value=" " then Cells(i&, 3).value="-"
Next i&

Я бы не сказал что код работает корректно, некоторые значения он просто пропускает и ничего там не ставит, а где надо поставить "-" стоит просто пропуск

@Vlad999 · 24.07.2018, 18:15

Не по теме:

Hilk, и зачем весть пост цитировать?

@Hilk · 24.07.2018, 18:21

Vlad999, почему нет...

@Catstail · 24.07.2018, 18:24

Проверенный код:

Visual Basic

 For i& = 2 To N1&
      Number1& = Cells(i&, 1).Value
      For j& = 2 To N2&
           Number2& = Cells(j&, 2).Value
           If Number1& = Number2& Then
              Cells(i&, 3).Value = "+"
              Exit For
           End If
      Next j&
      If Cells(i&, 3).Value = "" Then Cells(i&, 3).Value = "-"
 Next i&

@Hilk · 24.07.2018, 18:37

Catstail, на скриншоте видно, что он выходит за границу 'j' и идёт дальше, проставляет в ячейки '+' значениям которых нет в первом столбце и ставит '-' ячейкам, которые есть

@Catstail · 24.07.2018, 19:43

Hilk, код берет ячейку из первого столбца и проверяет, есть ли такое значение во втором (на любом месте). Если есть - в третью колонку ставится плюс, если нет - то минус. Что не так?

Добавлено через 6 минут
А... Нужно наоборот. Тогда так:

Visual Basic

 For i& = 2 To N2&
      Number2& = Cells(i&, 2).Value
      Cells(i&, 3).Value = "" '::: чтобы можно выло запускать несколько раз
      For j& = 2 To N1&
           Number1& = Cells(j&, 1).Value
           If Number1& = Number2& Then
              Cells(i&, 3).Value = "+"
              Exit For
           End If
      Next j&
      If Cells(i&, 3).Value = "" Then Cells(i&, 3).Value = "-"
 Next i&

@GreenMan · 24.07.2018, 20:20 **[ТС]**

Catstail, спасибо большое, то что нужно.

@Vlad999 · 25.07.2018, 08:14

Не по теме:

Сообщение от Hilk

почему нет...

правило 5.17 форума.

@Hilk · 25.07.2018, 18:03

Vlad999, если вы считаете цитату с кодом избыточной (хотя цитата мне нужна была, чтобы показать, что программа не работала в условиях, которые были заданы объяснением), то это проблема "самих вас", вы сами определили, что цитирование избыточно, а по мне так не избыточно и что делать будем?

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	24.07.2018, 14:51	2
	обязательно макрос, ф-ция не подойдет? Код =ЕСЛИ(СЧЁТЕСЛИ($A$1:$A$20;B1);"+";"") 0

@GreenMan 1 / 1 / 0 Регистрация: 16.08.2015 Сообщений: 19
	24.07.2018, 14:53 [ТС]	3
	Это просто пример. "Настоящих" значений, которые нужно обсчитать - несколько тысяч. Лучше макрос. 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	24.07.2018, 15:24	4
	GreenMan, за последнее время на форуме такие аналогичные темы, в первой отмечаются не совпавшие - малость изменить. Сравнить два столбца с разных листов и вывести несовпадения на отдельный лист Сравнение строк 0

@Baykal555 1 / 1 / 0 Регистрация: 08.09.2017 Сообщений: 391
	24.07.2018, 15:40	5
	Можно же макросом функцию вставлять через FormulaR1C1,ориентируясь по последней строке.То же самое же будет. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	24.07.2018, 16:29	6
	Сообщение от Baykal555 То же самое же будет - только намноооого дольше... чем нормальный макрос. Но на несколько тысяч всё равно. На несколько сотен тысяч - разницу увидите. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	24.07.2018, 17:25	8
	Catstail, так ведь толку не будет... Первое несоответствие - ставим - ... Первое соответствие - ставим + ... Очередное несоответствие - ставим - ... Нужно сразу после + выходить из цикла. А вообще это на коллекциях или словарях делают, чтоб быстро было. Скорее всего по ссылкам выше такое есть, не смотрел. 1

@Vlad999
	24.07.2018, 18:15 #11
	Не по теме: Hilk, и зачем весть пост цитировать? 0

@Hilk 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 16
	24.07.2018, 18:21	12
	Vlad999, почему нет... 0

@Hilk 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 16
	24.07.2018, 18:37	14
	Catstail, на скриншоте видно, что он выходит за границу 'j' и идёт дальше, проставляет в ячейки '+' значениям которых нет в первом столбце и ставит '-' ячейкам, которые есть Миниатюры 0

@GreenMan 1 / 1 / 0 Регистрация: 16.08.2015 Сообщений: 19
	24.07.2018, 20:20 [ТС]	16
	Catstail, спасибо большое, то что нужно. 0

@Vlad999
	25.07.2018, 08:14 #17
	Не по теме: Сообщение от Hilk почему нет... правило 5.17 форума. 0

@Hilk 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 16
	25.07.2018, 18:03	18
	Vlad999, если вы считаете цитату с кодом избыточной (хотя цитата мне нужна была, чтобы показать, что программа не работала в условиях, которые были заданы объяснением), то это проблема "самих вас", вы сами определили, что цитирование избыточно, а по мне так не избыточно и что делать будем? 0

Сравнение двух столбцов

Решение