EXCEL VBA如何根据单元格里的内容长度调整单元格行高？

判断一个单元格内的字符串长度用Len函数，用法如下：

s = Len(Range("A1").Text)

这里的s就表示字符串有多少个字符组成的。

判断选中的单元格是由几个小格子组成的可以这样：

比如：

Sub yy()

    [h6:k8].Merge   '将h6:k8区域合并单元格

    [h6].Select     '选中H6：k8这个合并单元格

    MsgBox Selection.Count   '通过Selection.Count这个命令就可以得到选中的这个区域的单元格数目

End Sub

让单元格自动调整行高，用AutoFit，自动适应方法，用法如下：

Sub xx()

    Range("A1:F6").Rows.AutoFit

End Sub

Sub

hanggao()

For

i

=

1

To

100

hg

=

Cells(i,

6).Value

Cells(i,

1).RowHeight

=

hg

Next

i

End

Sub

这是1到100行的

可适当调节行数

---