Excel VBA动态设置行高（根据某一列每行的字符数量）

在Excel表格中，如果文字太多，我们可以适当换行并设置自动行高。这里我们介绍一个按字符数量来自动调整行高
效果图：

1501663109444087.jpg

代码如下：Sub 动态设置行高()  Dim rown As Integer  Dim high As Integer  Dim charlen As Integer  Dim Lrow As Long '  Dim Rng As Range  Dim szs As Integer  Dim zms As Integer  Lrow = Range("D" & Cells.Rows.Count).End(xlUp).Row - 1  For rown = 2 To Lrow + 1 '    Rng = Range("D" & rown)    Set reg1 = CreateObject("VBSCRIPT.REGEXP")    Set reg2 = CreateObject("VBSCRIPT.REGEXP")    reg1.Pattern = "d{1}"    reg2.Pattern = "[A-Za-z]{1}"    reg1.Global = True    reg2.Global = True    Set sz = reg1.Execute(Range("D" & rown))    Set zm = reg2.Execute(Range("D" & rown))    szs = sz.Count    zms = zm.Count    charlen = Len(Range("D" & rown)) - szs / 2 - zms / 2    high = Application.Round(charlen / 50 + 0.5, 0) - 1    Rows(rown & ":" & rown).Select    Selection.RowHeight = 20 + high * 16  Next rownEnd Sub
代码分析：确定D列中第一个单元格的字符数量，一行所能容纳的字符数量，算出容纳文字所需的行数（有考虑数字与字母所占宽度与汉字的差别），然后再按行数设置适当的行高。