怎么自动调整excel行高

如何自动调整excel行高
如题1
[最优解释]

Sub cc()
  Selection.Rows.AutoFit
  Selection.RowHeight = Selection.RowHeight + 10
End Sub