копирование ячеек в Excel на основе значений в других ячейках

Question

Я хотел бы знать, как написать макрос, чтобы скопировать значение L3 до L2 на основании того, что A2 и A3 равны, а B2 и B3 также равны. Если последующие строки столбцов A и B не равны, макросу не нужно подталкивать данные вверх. В некоторых случаях может быть до 10 последующих строк, где значения столбцов A & B равны, а самое раннее значение месяца должно скатиться до верхней строки, где A & B соответствует.

Весь лист имеет около 150 строк со многими значениями Город и Компания. В настоящее время я выполняю эту операцию вручную, и это занимает много времени. Целью таблицы является предоставление свода результатов продаж на основе данных, которые извлекаются из нашего пакета CRM на основе SQL. Строка 4 не имеет значимых данных - это контекст, но это не повредит, если данные свернуты в строке 2 до тех пор, пока все месяцы с посещениями отображаются в верхней строке, где находятся столбцы A & B.

Я предполагаю, что макрос должен пройти через JAN (столбец E) и завершить этот столбец, а затем после этого последовательно пройти через столбцы G через P. Необходимо обрабатывать только столбцы E-P. Я не думаю, что это будет иметь негативные последствия, если данные будут конкатенированы в ячейках или просто перезаписаны. Как только макрос будет завершен, верхняя строка для данной Компании на определенном сайте должна содержать значения за все месяцы, в которые она была посещена.

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

Answer 1

на основе первого начального вопроса «как скопировать L3 к L2, если B2 = B3 и A2 = A3», этот основной макрос вы начали вдоль этих линий:

Option Explicit 

Sub CopyUP() 
Dim LR As Long, Rw As Long, col As Long 

LR = Range("A" & Rows.Count).End(xlUp).Row 'last row with data 

For Rw = LR To 2 Step -1     'from the bottom up, compare 
    If Range("A" & Rw) = Range("A" & Rw - 1) And _ 
     Range("B" & Rw) = Range("B" & Rw - 1) Then 

     For col = 5 To 16  'columns E:P 
      If Cells(Rw, col) <> "" Then Cells(Rw - 1, col) = Cells(Rw, col) 
     Next col 

    End If 
Next Rw 

End Sub