excel自动换行调整行高的问题？
发布网友
发布时间：2022-03-07 16:26
共2个回答
热心网友
时间：2022-03-07 17:55
用代码一键完成，只是不免费。
热心网友
时间：2022-03-07 19:13
用VBA可快速实现，代码如下[假定需要的单元格字数超过26字自动换行,且数据位于A列]：
Sub 换行()
With ActiveSheet
irow = .UsedRange.Rows.Count
For i = 1 To irow
If Len(.Cells(i, 1)) > 26 Then
.Rows(i).RowHeight = 40
Else
.Rows(i).RowHeight = 20
End If
Next i
End With
End Sub
