Удаление определенных строк

Question

Мне нужно создать макрос Excel VBA для калькулятора цепочки, поэтому мне нужно оставить первую запись и последнюю запись определенного имени и удалить все значения между ними. Например:

EXAMPLE DATA IMAGE

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

Может ли кто-нибудь предоставить мне макрос, который соответствует моему описанию?

Answer 1

Включите запись макроса сначала, если он склонен к этому. Предполагая, что CHAINAGE находится в Columna, в Row39 и скопировал вниз, чтобы удовлетворить, пожалуйста, попробуйте:

=OR(COUNTIF(B$1:B39,B39)=1,COUNTIF(B$1:B39,B39)=COUNTIF(B:B,B39)) 

Затем процеживают этот столбец, чтобы выбрать и удалить строки FALSE.

Answer 2

В качестве макроса это удивительно просто.

Sub del_brick() 
    Dim fr As Long, lr As Long 

    With Worksheets("Sheet1") '<~~ set this properly! 
     lr = Application.Match("zzz", .Columns(2)) 
     Do While lr > 40 '<~~ if lr is above row, there is nothing to delete 
      fr = Application.Match(.Cells(lr, 2).Value2, .Columns(2), 0) 
      If CBool(lr - fr - 1) Then 
       .Range(.Cells(fr + 1, 1), .Cells(lr - 1, 1)).EntireRow.Delete 
      End If 
      lr = fr - 1 
     Loop 
    End With 
End Sub