Удалить пустую строку ниже конкретные данные

Question

мне нужен скрипт (Excel VBA), который будет удалить пустой строку в таблице, где появляется ниже «Понедельник» - может кто-нибудь помочь?

В приведенном ниже примере мне нужно понедельники, чтобы быть вместе (нет пустых строк)

name Monday 02 05 16 

name Monday 02 05 16 

name Monday 02 05 16 

name Monday 02 05 16 
name Tuesday 03 05 16 
name Tuesday 03 05 16 

Answer 1

попробовать это

Option Explicit 

Sub MAIN() 
Dim cell As Range 
Dim mondaysAddress As String 

With Worksheets("MyWS") '<~~ replace "MyWS" with you actual worksheet name  
    For Each cell In .Columns("A").SpecialCells(xlCellTypeConstants, xlTextValues)'<~~ replace "A" with whatever column cells you must search the word "Monday" in 
     If InStr(UCase(cell.Value), "MONDAY") Then 
      If IsEmpty(cell.Offset(1)) Then mondaysAddress = mondaysAddress & cell.Offset(1).Address & "," 
     End If 
    Next cell 
    mondaysAddress = Left(mondaysAddress, Len(mondaysAddress) - 1) 
    Range(mondaysAddress).EntireRow.Delete 
End With 

End Sub