作者:乔山办公网日期:
返回目录:excel表格制作
A3如果单元格里面是3行是显示3+1倍行高吗?
说清楚了就有办法解决,呵呵
*******
没说清楚我怕答非所问。不过你没有对问题补充啊?
我就按我理解来了。不对我再修改。
-----------------
1.
在I1输入zhidao公式:
=REPT("A"&CHAR(10),MAX(LEN(A1:H1)-LEN(SUBSTITUTE(A1:H1,CHAR(10),""))+1))
数组公式输入后按Ctrl+Shift+Enter。专
设置单元格格式/对齐/自动换行。然后往下拖动公式。即可达到最大N行数据但是显示N+1倍行高。
2.如果是另外一种无规律的设置方法,例如原属来1显示1,原来2显示3,原来3显示4...可以这么做。
选中I1,插入-名称-定义,引用位置:
=MAX(LEN(A1:H1)-LEN(SUBSTITUTE(A1:H1,CHAR(10),"")))
名称命名为:"行高"
在I1输入公式:
=REPT("A"&CHAR(10),LOOKUP(行高,{1,2,3,4},{1,3,4,5}))
设置单元格格式/对齐/自动换行。然后往下拖动公式。即可达到最大N行数据但是显示N+1倍行高。
1、可以建个表,设置好行高,百然后保存为模板,把这个模块设置为默认模板。即
用自己设计好“度行高与列宽”的模板(以文件形式取名“book.xls))保存到 c:\windows\Documents and Settings\当前用户名\Application Data\Microsoft\Excel\XLSTART 文件夹下。
以后打开时就自动调用该文档模式。
2、在附中 宏 VB编辑器里 只要你修改行高内 列宽(30 10两个数字) 随意输入,保存,再打开新表时,就能得到你想要的行高和列宽了。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.UsedRange.Count = 1 Then '如果使用过的单元数量为1
Sh.Cells.Rows.RowHeight = 30 '指定行高
Sh.Cells.Columns.ColumnWidth = 10 '指定列宽
End If
End Sub
3、上述两种方容法,经本人测试,均有效。