选中工作表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