excel表中A3单元格自动调节

来源：百度知道 编辑：UC知道 时间：2024/06/22 07:43:54
excel表2中a8单元格（合并）的数据由表1中转换过来的，表1种的数据输入的有的时候多，有的时候少，多的时候表2A8需要转换为2行或者是3行，请教如果根据字的多少自动调正行高，每行的距离还要一样。请说的详细一点本人对于VB不是很懂
自动调整数据转换后的行高

其实就是调整第8行的高度。设每行显示6字符。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x =int((Len([a8])-1) / 6) +1
Rows(8).RowHeight = x * 18
End Sub

事先a8设置自动换行