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