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
需要代码的也可以发
我修改了题目，可能你更明白我的想法，请帮忙看看，谢谢！
楼主，我通过调试，改了你的代码（楼主为什么不贴代码，难道是伸手党或者度娘……）
嗯……其中有两处小问题，'2007excel可能有点旧了，以致与楼主的不太一致
一是unload me的问题，原来位置上的unload me（被注释掉了）会让定义在整个窗体里的变量被清理掉，然后空值被清除，报错（也许可以把6个public变量定义放到private workbook_open()里的userform1.show前面一行，而不用改unload me的位置，应该也不会报错）'总之它们不能在userform1的代码里面
（嗯，确实没有问题，而且执行速度快了几秒）
另一个问题是打印的效果问题，默认的14行只有13行在a4纸里，这个调参数就好了（图中a14的ckeko没有能被放在预览a4纸里面）
还有个严重点的问题是columns的使用，columns("1:"&ls).select会报错
可以改为range(columns(1),columns(ls)).select
需要代码的也可以发
可以不用VBA实现，按以下步骤：
1、设置行距后，可以在视图-页面布局设置行高（单位：厘米）
2、其实每行行高是可以算出来的
A4纸长297，减去上下2厘米，得257，除以30，得8.567，刚好布满全页
必须用VBA，这只是中间的一段，还有其它的要做
从网上查到，1单位rowheight=0.035267cm,1单位columnwidth＝0.214975cm
ROW(1:65536).RowHeight=8.567/0.035267
如果65536行不够，可以加大
手机WPS表格中怎么设置行高列宽呢，非常简单粗暴搞定
