Excel如何批量修改行高?

内容是一些题目,一千多行,设置了自动换行,因为题干长短不同,所以有的是一行,有的两行,有的三行。自动调整的行高看起来有点挤,所以想调整一下,比如一行字的行高20,两行字的行高35这样,整个表格完全无规律可循,一点一点调整太费事,有没有好一点的方法可以批量调整?这种自动换了几行字的单元格能不能定位呢?

只能用代码了!工作表签上点击右键,“查看代码”,将下方代码粘贴到需要调整行高的工作表对应的代码区,点击绿色运行按钮即可。

Sub Test()

 For r = 1 To ActiveSheet.UsedRange.Rows.Count

 Rows(r & ":" & r).RowHeight = Rows(r & ":" & r).RowHeight + 5

 Next

End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2020-06-12
需文件样板,如果保密信息,用其它字代替,说明行高,附到163邮箱mijizili