VBA设置行高列宽？

楼主，像楼上这样操作一次之后，打开（不记得是在”视图“里还是”审阅“里）（vba）录制宏（指定合适的按钮（e.g. ctrl+shift+f)，然后，重复楼上的这些操作一遍，然后点停止录制（就在录制宏旁边，然后），然后就有了ctrl+shift+f，一键完成

1

楼主，我通过调试，改了你的代码（楼主为什么不贴代码，难道是伸手党或者度娘……）

嗯……其中有两处小问题，'2007excel可能有点旧了，以致与楼主的不太一致

一是unload
me的问题，原来位置上的unload
me（被注释掉了）会让定义在整个窗体里的变量被清理掉，然后空值被清除，报错（也许可以把6个public变量定义放到private
workbook_open()里的userform1.show前面一行，而不用改unload
me的位置，应该也不会报错）'总之它们不能在userform1的代码里面

    （嗯，确实没有问题，而且执行速度感觉快了几秒，图2，3）

2

3

4

另一个问题是打印的效果问题，默认的14行只有13行在a4纸里，这个调参数就好了（图5，6中a14的ckeko没有能被放在预览a4纸里面）

还有个严重点的问题是columns的使用，columns("1:"&ls).select会报错

可以改为range(columns(1),columns(ls)).select

5

6

7

需要代码的也可以发

可以不用VBA实现，按以下步骤：

1、设置行距后，可以在视图-页面布局设置行高（单位：厘米）

2、其实每行行高是可以算出来的

A4纸长297，减去上下2厘米，得257，除以30，得8.567，刚好布满全页

手机WPS表格中怎么设置行高列宽呢，非常简单粗暴搞定