1-5列,设置行高
Dim t As Table = Tables("表A")Dim lc As Integer = 1Dim br As Integer = t.rows.countDim rc As Integer = 5t.grid.AutoSizeRows(0, lc, br, rc, 0, 0)