是否有excel VBA代码可以在表满时展开或添加行？

Sub AddRowsIfNeeded()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim maxRows As Long
    
    ' 设置工作表和最大行数
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    maxRows = 100
    
    ' 获取当前表格的最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 检查是否需要添加行
    If lastRow >= maxRows Then
        ' 计算需要添加的行数
        Dim numRowsToAdd As Long
        numRowsToAdd = lastRow - maxRows + 1
        
        ' 添加行
        ws.Rows(lastRow + 1 & ":" & lastRow + numRowsToAdd).Insert Shift:=xlDown
    End If
End Sub