宏用于删除Excel中所有现有工作表中的第一行

Question

我有一个包含大约300张的excel文件，我需要删除第一行。 你能否建议VBA代码这样做？

提前致谢！

Answer 1

Atleast尝试发布您尝试过的内容。

下面的代码将删除活动工作簿中所有工作表中的第一个

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