Макрос для удаления первых строк во всех существующих листах в Excel

Question

У меня есть файл excel, содержащий около 300 листов, для которых мне нужно удалить первые строки. Не могли бы вы предложить код VBA для этого?

Заранее благодарен!

Answer 1

Atleast попытаться опубликовать то, что вы пробовали.

ниже код будет удален 1-й во всех листов в активной книге

Sub LoopThroughSheets() 
    Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Worksheets 

    ws.Range("1:1").Delete 

    Next ws 
End Sub 

Answer 2

Private Sub deleteRows() 

    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Sheets 
     ws.Range("A1").EntireRow.Delete 
    Next ws 

End Sub