Excel自动换行后批量设置单元格上下边距

Sub userset()
Dim i&, r As Range
Set r = Range("a1")
For i = 54 To 55 '52是行数最大值
r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5
Next i
End Sub

 

翻译

搜索

复制