设置行高并自动适应内容

山海风云轩

昨天，遇到一个这样的问题：如果需求区域空值，则固定行高，如果有内容，则自动适应，通过本小白摸索，已解决，现分享出来：

Sub 行高设置()

Application.ScreenUpdating = False '关闭屏幕刷新

For i = 4 To 90

    If ActiveSheet.Cells(i, 2) = "" Or ActiveSheet.Cells(i, 2) = 0 Then 'B列中单元格为空或为0

       ActiveSheet.Rows(i).RowHeight = 25.5 '单元格所在行高为0

    ElseIf ActiveSheet.Cells(i, 2) <> "" And ActiveSheet.Cells(i, 2) <> 0 Then 'B列单元格不为空且不为0

       ActiveSheet.Cells.EntireRow.AutoFit '单元格所在行高自动调节

    End If

Next i

Application.ScreenUpdating = False '关闭屏幕刷新

End Sub

山海风云轩

欢迎大家一起交流

gaolzhen

感觉很有用，谢谢分享

天天打渔

厉害，再加个 某列设置指定字体，字号，加粗/不加粗，对齐，格式