excel表格所有行“自动行高再加高，留出空隙”，字上下有点空隙看舒服点

合肥狮子

excel表格所有行“自动行高加上4”，字上下有点空隙看舒服点，怎么搞？
excel表格所有行“自动行高加上4”，字上下有点空隙看舒服点，怎么搞？
我用本办法一行一行地增加4，也行，但是太费时间了，实在没辙了，才来请教各位老师，恳请帮忙，急需，在线等！！！

刀羊

没有直接的办法时，可以看看VBA的。

合肥狮子

excel表格所有行“自动行高再加高，留出空隙”，字上下有点空隙看舒服点，



这个经常用到，帮了我一次，就是帮了亿万人N次，这事常用的！


恳请帮忙弄个VBA，谢谢您和大家！

xucuncicero

简单问题复杂化了吧。。。

Ctrl+A全选，右键 >> 行高，输入18.75确定

合肥狮子

xucuncicero 发表于 2016-5-29 16:52
简单问题复杂化了吧。。。

Ctrl+A全选，右键 >> 行高，输入18.75确定

你完全理解错了！
表格中各个单元格的字体大小不一，怎么能统一设置行高！

xucuncicero

合肥狮子 发表于 2016-5-29 16:56
你完全理解错了！
表格中各个单元格的字体大小不一，怎么能统一设置行高！

那你是要这样？

1. Sub HeightTo()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
   
5.         If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
   
6.             Rows(i).RowHeight = Rows(i).RowHeight + 4
   
7.         End If
   
8.     Next i
   
9.     Application.ScreenUpdating = True
   
10. 
    
11. End Sub
    

复制代码

合肥狮子

xucuncicero 发表于 2016-5-29 17:16
那你是要这样？

非常感谢，我要的就是这样子！


还烦请一事：能否把增加行高4改成运行前再定，不固定死了。就是运行前，弹出窗口：行高增加：4，具体有用户自行决定，不固定死。

xucuncicero

合肥狮子 发表于 2016-5-29 20:50
非常感谢，我要的就是这样子！

1. Sub HeightTo()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     rh = InputBox("请输入待增行高值：", , 4)
   
5.     For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
   
6.         If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
   
7.             Rows(i).RowHeight = Rows(i).RowHeight + rh
   
8.         End If
   
9.     Next i
   
10.     Application.ScreenUpdating = True
    
11. 
    
12. End Sub
    

复制代码

默认是4，输入负数行高会减小。

大雨治水

这个是每次都增加一下午高了，如果要不变的话，得先自动行高了！谢谢！

sml0625

ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
感觉只要括号里的就行了？