Gavin与狗（ID：callmeGavin8）
01
使用背景
1、VBA简介
VBA作为一种宏语言，在Excel、Word、PPT等软件中可Alt+F11一键开启编写。免去主流编程语言（如大热的Python）安装时的复杂与痛苦，像傻瓜一样复制代码进去即可立刻运行。堪称解放办公室一族的最佳利器！
2、应用领域
财务（报表、对账单）、法务（合同）、招投标（清标、报告）、日常办公（打印、批量调整格式、批量发送邮件、爬取网页数据）等等各方面涉及office软件的自动化操作。
3、本文目标解决
编程小白的办公自动化——动态调整至行高、隐藏空白行，实现高效舒服的工作界面。
02
实现效果
在我们日常工作中，经常要面对各类Excel表格，但其中的行高不统一、空白行影响阅读等问题，严重影响了我们的阅读感受。
比如下面这份原始文档，虽然行高可以用autofit自动调整，但是如果想实现“一行字时行高为25磅，增加一行字则增加15磅”的标准文本形式，则是无法实现的。
而通过后面附送的VBA代码，则不仅可以实现一键将所有内容实现“一行字时行高为25磅，增加一行字则增加15磅”的标准文本形式；同时还可以将没有内容的行隐藏，实现最舒服的形式。
03
具体步骤
1、新建一个Excel文件，按下Alt+F11打开VBA窗口，复制下面的代码进去，将需要动态调整行高的信息放入B列。
2、按下F5快捷键运行代码。
代码第一部分实现行高的自动调整，空行25磅，其余行高为25+15*（单元格的行数）。
3、代码第二部分将空白行隐藏。
04
代码说明
代码总体分为两段（可分段使用）：
第一部分——将行高调整至标准形式；
第二部分——隐藏内容为空的行。
第一部分：
下面的代码做了sheets的循环，也就是所有sheet都可以实现。
目前是按照B列单元格的内容实现行高的调整，如果需要调整只需将Range中涉及 的“B”列调整成任一列。
空白行的行高设置为25磅。
第二部分：
目前是按照B列单元格的内容实现行的隐藏，如果需要调整只需将Range中涉及 的“B”列调整成任一列。
具体代码如下：
Sub Gavin()
Dim rownAsInteger
Dim highAsInteger
Dim charlenAsInteger
Dim kAsInteger
Z = Sheets.Count
'第一部分：调整自动行高
For k = 1 To Z
Lrow = Sheets(k).Range("B" & Cells.Rows.Count).End(xlUp).Row - 1
b = Columns("B").ColumnWidth
For rown = 1 To Lrow + 1
If Sheets(k).Range("B" & rown) = "" Then
Sheets(k).Activate
Rows(rown & ":" & rown).Select
Selection.RowHeight = 25
Else Sheets(k).Activate
charlen = Len(Range("B" & rown))
high = Application.Round(charlen / (b / 2) + 0.49, 0) - 1
Rows(rown & ":" & rown).Select
Selection.RowHeight = 25 + high * 15
End If
Next rownNext Z'
第二部分：隐藏空白行
k = ActiveSheet.Range("B65535").End(xlUp).Row
Fori =1To kIfRange("B"& i) =""Then
Rows(i).Hidden =True
EndIf
NextEnd Sub
05
扩展延伸
搭配单元格的列宽、页眉页脚等可建立自己的固定阅读形式、文档输出模板。
有什么想法或建议欢迎留言，可以定制代码噢~
关注Gavin与狗，让你解放双手！
可爱的你，从转发/点赞/收藏三连做起