Excel如何使单元格不自动调整行高

现在我在一个小的单元格里输入很多文字后它会自动调整行高把单元格的内容完全显示，但我不希望它改变单元格的大小，只需点击时在电脑里可以查看就行。如何设置请指教？（不想手工调整行高）

先选中,然后右键,选单元格格式,里面有三排前面都有个正方形框框的那三排,你把根据内容调整行高的那个去掉勾,

自动调整合并单元格行高原型 原理是： 因为独立单元格设置了自动换行后，高度会自动变化，利用这个特点，将合并单元格的内容复制到一个独 立单元格，并将这个单元格格式设置成自动换行，且其宽度设置为合并区域宽度 ( 合并区域宽度 = 合并区域中各 列宽度之和 ) ，再将此时独立单元格的行高值设置到合并区域所在的行即可。 运行条件：创建一个名字为 temp 的 sheet 表单 , 将下内容粘贴到 excel 模块中。 vba 程序如下： sub main() mergecellautofit "sheet1", 6, 2 end sub sub mergecellautofit(ssheet as string, mrow as integer, mcol as integer) dim mwidth as double dim mst, med as integer if sheets(ssheet).cells(mrow, mcol).mergecells then mst = sheets(ssheet).cells(mrow, mcol).mergearea.column med = mst + sheets(ssheet).cells(mrow, mcol).mergearea.columns.count() - 1 for i = mst to med mwidth = mwidth + sheets(ssheet).columns(i).columnwidth next i sheets("temp").columns(1).columnwidth = mwidth + (med - mst) * 0.6 with sheets("temp").range("a1") .horizontalalignment = xlgeneral .verticalalignment = xltop .wraptext = true .orientation = 0 .addindent = false .indentlevel = 0 .shrinktofit = false .readingorder = xlcontext .mergecells = false end with sheets(ssheet).cells(mrow, mcol).copy sheets("temp").range("a1").pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=false sheets(ssheet).rows(mrow).rowheight = sheets("temp").rows(1).rowheight sheets("temp").columns(1).delete else msgbox " 不是合并单元格！ " end if end sub