VBA设置自动行高和自动换行，解决文字贴近上下框问题

piao3701

已于 2024-12-12 14:16:06 修改

阅读量351

点赞数 1

文章标签： vba

于 2024-12-12 09:57:47 首次发布

本文链接：https://blog.csdn.net/piao3701/article/details/144417982

版权

VBA设置自动行高和自动换行，解决文字贴近上下框问题

Sub SetAutoHeightAndWrap()
'设置自动行高（解决文字离上下框较近问题）和自动换行
Dim i, startRowNum, endRowNum As Integer

startRowNum = 1  '起始行号
endRowNum = 10   '结束行号


Cells.EntireRow.AutoFit
Cells.WrapText = True
For i = startRowNum To endRowNum
    Debug.Print Worksheets("Sheet1").Rows(i).RowHeight
    With Worksheets("Sheet1").Rows(i)
        .RowHeight = .RowHeight + 10
    End With
Next i

End Sub