Excel表格的行高设置

Posted 02月 13, 2008 * Comments(0)

节前用Microsoft Excel做了大量的计划，然后就遇到了问题：Excel本身无法实现类似Word的段落间距的效果——单元格内容量不同导致了行高不同，而批量设置行高后会变得很难看，且会与单元格内的自动换行冲突。

鸣谢Excel大牛张老师，写了这个宏（在对应范围内，基于单元格的内容高度，为其增加了行高）：

[source:vb]
Sub 行高设置()
For counter = 1 To 30 '执行范围（行）
Rows(CStr(counter) + ":" + CStr(counter)).EntireRow.AutoFit
Rows(CStr(counter) + ":" + CStr(counter)).RowHeight = Rows(CStr(counter) + ":" + CStr(counter)).RowHeight + 8 '增加的行高像素
Next counter
End Sub
[/source]

如果可以自动判断设置范围的话，那就更高档啦。:p

没有评论

Leave a reply