单元格内容设置行的高度

最新推荐文章于 2024-06-12 10:11:12 发布

springdk2009

最新推荐文章于 2024-06-12 10:11:12 发布

阅读量168

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/springdk2009/article/details/136809399

VBA 专栏收录该内容

12 篇文章

订阅专栏

时间：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