主题：Excel 自动行高后，再怎么继续增加行高？发现新问题

 Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit  '自动调整行高

‘第3行到结尾，每行行高再增加5？怎么写代码

App.Visible = True