Страницы: 1
RSS
Распределение данных в соответствии со столбцом-эталоном
 
Дано: 3 столбца данных - 1 эталон, 2 и 3 - реальные данные (созависимы). Нужно расставить значения соответственно эталону. На гифке: https://gyazo.com/c76311cce88808869ab637a64cfe481c показано как сейчас приходится перебирать массив вручную. Есть ли макрос, либо формула, которая заменит ручной труд? Есть оговорка - во 2 столбце бывают значения, отсутствующие в эталонном, их (и соответствующую ячейку 3 столбца) желательно просто выделить цветом без каких-либо перемещений.  
 

файл пример приложите нам гефка не нужна)
в нем покажите что есть что хотите получить!

Изменено: Mershik - 22.11.2018 17:28:59
Не бойтесь совершенства. Вам его не достичь.
 
готово
 
Маленький запрос PQ, кажется, все рисует по заданию.
Только исходные данные надо как таблицу отформатировать, чтобы работал.
Изменено: Xel - 23.11.2018 11:57:03
 
scorzy, пробуйте
Код
Sub Sc()
Dim i&
  i = 3 'первая строка
  Application.ScreenUpdating = False
  Do
    If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
      Select Case Cells(i, 2) - Cells(i, 3)
      Case Is < 0 'B<C
        Cells(i, 3).Resize(, 2).Insert xlShiftDown
      Case Is > 0
        Cells(i, 2).Insert xlShiftDown
      End Select
    End If
    i = i + 1
  Loop Until Cells(i, 2) = "" And Cells(i, 3) = ""
  Application.ScreenUpdating = True
End Sub
 
Добрый день!
вариант на PQ
 
Добрый вечер, вариант с PQ оказался для меня самым удачным, большое спасибо за помощь всем.
Страницы: 1
Наверх