Sub DeleteEmptyFirstFiveRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim i As Integer
    Dim hasData As Boolean
    
    ' 遍历工作簿中的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        hasData = False
        
        ' 检查前5行是否有数据
        For i = 1 To 5
            Set rng = ws.Rows(i)
            ' 检查整行是否有数据
            If Application.CountA(rng) > 0 Then
                hasData = True
                Exit For
            End If
        Next i
        
        ' 如果前5行都没有数据，则删除这些行
        If Not hasData Then
            ws.Rows("1:5").Delete Shift:=xlUp
        End If
    Next ws
    
    MsgBox "处理完成！", vbInformation
End Sub

import openpyxl

def delete_empty_first_five_rows(file_path):
    # 加载工作簿
    wb = openpyxl.load_workbook(file_path)
    
    for sheet_name in wb.sheetnames:
        ws = wb[sheet_name]
        delete_rows = True
        
        # 检查前5行是否有数据
        for row in range(1, 6):
            has_data = any(cell.value is not None for cell in ws[row])
            if has_data:
                delete_rows = False
                break
        
        # 如果前5行都没有数据，则删除
        if delete_rows:
            ws.delete_rows(1, 5)
    
    # 保存修改后的工作簿
    wb.save(file_path)
    print("处理完成！")

# 使用示例
delete_empty_first_five_rows("your_file.xlsx")