单元格内容设置行的高度

最新推荐文章于 2024-11-29 17:04:14 发布

原创最新推荐文章于 2024-11-29 17:04:14 发布 · 185 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba

VBA 专栏收录该内容

12 篇文章

订阅专栏

这篇文章介绍了如何使用ExcelVBA编写一个名为宏1的脚本，该脚本根据单元格内容长度自动调整行高，当单元格4列长度大于24字符或6列长度大于14字符时，将行高设置为24，否则设为13。

时间：2017-02-17 16:43:10

Sub 宏1()
'
' 宏1 宏
'
    For x = 3 To [C65536].End(3).Row
        If Len(Cells(x, 4)) > 24 Or Len(Cells(x, 6)) > 14 Then
           Rows(x).Select
            Selection.RowHeight = 24
            Else
            Rows(x).Select
            Selection.RowHeight = 13
        End If
    Next x
 
  
End Sub