老师好：如何调整单元格之间的行距,更和谐！

housir · 发表于 2012-3-8 21:58

老师：
1.见图1“调整前”：是手动选定第1到3列，双击行分行线后得到的EXCEL自动调整的行距结果。不是很理想，3条行的间距还是太挤。

图1：调整前

2.见图2“调整后”：该图是我想要的行距，不过得一行一行手动调整，才能实现。由于我的数据（行数）较多，且不规整，这样手动操作工作量很大。不知各位大侠可否有捷径，自动调整到图2所示的理想间距？

图2：调整后

little-key · 发表于 2012-3-8 21:59

可以使用自适应行高和列宽

sscylh · 发表于 2012-3-8 22:04

好像可以先将列宽调窄一点，然后选择单元格自动换行，再自适应行高，再调整列宽，楼主可以试一下，没有附件我也没试出来，建议上传附件。

LangQueS · 发表于 2012-3-8 22:21

自适应行高后文字设置小1号

Butterfly蝶1 · 发表于 2012-3-8 22:23

自适应行高后文字设置小1号

guzhen9315 · 发表于 2012-3-8 22:34

行数 = n
字数 = LEN(range("C" & n))
行高 = （INT(字数/行宽字数）+1）* 调整系数
Rows(n).RowHeight = 行高

housir · 发表于 2012-3-9 09:17

LangQueS 发表于 2012-3-8 22:21
自适应行高后文字设置小1号

版主大人：如何“自适应行高后文字设置小1号”啊？我按理解的操作小1小号后，表格会自动变紧。烦请给个演示图表，不胜感谢！

housir · 发表于 2012-3-9 09:21

guzhen9315 发表于 2012-3-8 22:34
行数 = n
字数 = LEN(range("C" & n))
行高 = （INT(字数/行宽字数）+1）* 调整系数

guzhen9315老师：这段代码如何具体使用啊？小弟愚笨，烦请上传一下演示操作。不胜感谢！

guzhen9315 · 发表于 2012-3-9 11:48

Sub 自动行高()
行宽字数 = 5
调整系数 = 15

For i = 2 To Range("C65536").End(xlUp).Row
      行号 = i
      字数 = Len(Range("C" & i))
      行高 = (Int(字数 / 行宽字数) + 1) * 调整系数
      Rows(i).RowHeight = 行高
Next i
End Sub

guzhen9315 · 发表于 2012-3-9 12:19

VBA自动行高.rar

		自动登录	找回密码
密码			免费注册

[求助] 老师好：如何调整单元格之间的行距,更和谐！