Страницы: 1
RSS
Сравнение двух столбцов и вывод результата в третий столбец.
 
Здравствуйте, прошу помощи вот в таком задании:
В колонке G и H, внесены значения "A" и "B". В колонке J - результат сравнения.

Условие такое:
Если G10 равно H11, то J11 = "Равно".
Если G10 не равно H11, то J11 = "Не равно".
Если G10 =A или B, и H11 = пустота, то J11 = пустота
Если G10 = пустота, и H11 = пустота, то J11 = пустота

Условие простое, НО, если в колонке J случаются два "не равно" подряд, то мы пропускаем следующие ячейки, до того как в колонке G появится "A".
Чтобы понять эту ситуацию, посмотрите пример, диапазон J22-J25.

Там случилось вот что:
G22 не равно H23. Записываем в J23 "Не равно"
G23 не равно H24. Записываем в J24 "Не равно"
G24 равно H25, но было два случая "Не равно", по этому пропускаем, и ищем в G следующее "A".

Спасибо!
 
Кросс с неоптимизированным решением
http://www.excelworld.ru/forum/2-42007-1#278765
Скажи мне, кудесник, любимец ба’гов...
 
Тут ответил
 
 pain2430,  решение макросом.
Код
Sub Макрос1()
Dim LR As Long, i As Long, y As Long
LR = Cells(Rows.Count, 7).End(xlUp).Row - 1
For i = 10 To LR
  If Cells(i, 7) = "" Or Cells(i + 1, 8) = "" Then
      Cells(i + 1, 10) = ""
      Else
         If Cells(i, 7) = Cells(i + 1, 8) Then
            Cells(i + 1, 10) = "Равно"
            Else
                Cells(i + 1, 10) = "Не равно"
          End If
      End If
 Next i
For i = 11 To LR
    If Cells(i, 10) = "Не равно" And Cells(i + 1, 10) = "Не равно" Then
       For y = i + 1 To LR
          If Cells(y, 7) <> "A" Then
             Cells(y + 1, 10).ClearContents
             Else: Exit For
          End If
       Next y
    End If
 Next i
End Sub
Изменено: casag - 01.06.2019 22:20:09
Страницы: 1
Наверх