Excel设置最小行高

/ 0评 / 0赞

设置最小行高

设置方法：

选中一空白列，查询字体大小与行高对照表（见下），设置字体大小。

例如：

想要设置25的最小行高，通过查表，最接近的为25.2行高，对应需要设置20字号。

因此选中一空白列，设置字号为20。

然后选中多行表格，在Excel页面最左侧行号与行号之间的行分隔线处双击，即可使选中的多行自适应行高，而此时的自适应行高就是25.2。

注意：

自适应行高对该行最大字体进行适应，因此上面设置的字体大小如果不是该行最大字体，那么该行的最小行高不是按照设置的字体大小进行适应，而是按照该行最大的字体大小进行适应。

字体大小与行高对照表

字体大小 行高 字体大小 行高
1 4.2 26 32.4
2 4.2 27 34.2
3 5.4 28 35.4
4 6 29 36.6
5 6.6 30 37.8
6 7.8 31 39.6
7 9.6 32 40.2
8 10.2 33 41.4
9 12 34 43.2
10 13.2 35 43.8
11 13.8 36 46.2
12 15.6 37 48
13 16.8 38 48.6
14 18 39 50.4
15 19.2 40 51.6
16 21 41 52.2
17 21.6 42 54
18 22.8 43 55.2
19 24.6 44 56.4
20 25.2 45 57.6
21 26.4 46 59.4
22 28.2 47 60
23 28.8 48 61.2
24 30.6 49 63
25 31.8 50 63.6

附件：生成对照表的VBA代码

Sub 调整字体测量行高()
'
' 调整字体测量行高
'

'

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "字体大小"

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "行高"

    For i = 2 To 51:
        Dim RowsStr
        RowsStr = i & ":" & i

        Rows(RowsStr).Select
        With Selection.Font
            .Size = i - 1
        End With

        Range("A" & i).Select
        ActiveCell.FormulaR1C1 = i - 1

        Range("B" & i).Select
        ActiveCell.FormulaR1C1 = Selection.Height

        Rows(RowsStr).Select
        With Selection.Font
            .Size = 12
        End With
    Next
End Sub

发表回复