excel自动调整行高

来源：百度知道 编辑：UC知道 时间：2024/09/20 19:42:18
表1A1通过命令的运算而组成的组成的一句话有时多有时少，表2A3=表1A1,表2A3是通过多个单元格合并的，表2A3的宽度是40，当表2A3转换表1A1内容多时，超过宽度40就自动换行，然后为了卷面的好看，单元格内换行内容高度为18，不知道能否办到，给大家添麻烦了。
18所指的单元格换行后的整体高度，如果是1行就是18，如果是2行就是36，如果是3行就是72。。。。。。。

选中工作表2，在表2的‘标签’(工作表名字)上点击鼠标右键，点击“查看代码”，进入VBA编程界面，在右栏的空白区内粘贴下面的共6行代码。
接下来，你只要用鼠标点击表2的A3单元格，就会自动换行，自动调整行高，

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 1 Then
Target.Rows.AutoFit
Target.ColumnWidth = 40
Target.WrapText = True
End If
End Sub

单元格>对齐>文本控制,勾选:自动换行