呃,设置后,是不能恢复原来的高度的。你只能统一设置每一行的行高。
For i As Integer = 0 To Tables("表A").rows.count-1 Tables("表A").grid.rows(i+1).height = 20Next