怎样在最适合行高的基础上加高一点使得表格好看点？

dglsf

由于表格缩放了，所以最适合行高会使单元格内容最后一行打印不出来，有什么办法可以很方便的在最适合行高基础上加高一个固定值？

jack.zhou

Sub jac() For i = 1 To [a65536].End(xlUp).Row Rows(i).RowHeight = Rows(i).RowHeight + 20 Next i End Sub

lapoo

如何用的呢？

bsyjfen

先设置为最合适的行高，再运行下面的宏，即可每行增加6的行高，只是就变成固定的行高了。

Sub HeightTo()

    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
            Rows(i).RowHeight = Rows(i).RowHeight + 4
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

bsyjfen

Sub jac()

For i = 1 To [a65536].End(xlUp).Row
Rows(i).RowHeight = Rows(i).RowHeight + 6

Next i

End Sub

aa868682008

jack.zhou 发表于 2004-4-24 22:47
Sub jac()
For i = 1 To [a65536].End(xlUp).Row
Rows(i).RowHeight = Rows(i).RowHeight + 20

真是高手啊。