干货| 案例03期：VBA助力表格动态调整行高

Gavin与狗（ID：callmeGavin8）

使用背景

1、VBA简介

VBA作为一种宏语言，在Excel、Word、PPT等软件中可Alt+F11一键开启编写。免去主流编程语言（如大热的Python）安装时的复杂与痛苦，像傻瓜一样复制代码进去即可立刻运行。堪称解放办公室一族的最佳利器！

2、应用领域

财务（报表、对账单）、法务（合同）、招投标（清标、报告）、日常办公（打印、批量调整格式、批量发送邮件、爬取网页数据）等等各方面涉及office软件的自动化操作。

3、本文目标解决

编程小白的办公自动化——动态调整至行高、隐藏空白行，实现高效舒服的工作界面。

实现效果

在我们日常工作中，经常要面对各类Excel表格，但其中的行高不统一、空白行影响阅读等问题，严重影响了我们的阅读感受。

比如下面这份原始文档，虽然行高可以用autofit自动调整，但是如果想实现“一行字时行高为25磅，增加一行字则增加15磅”的标准文本形式，则是无法实现的。

而通过后面附送的VBA代码，则不仅可以实现一键将所有内容实现“一行字时行高为25磅，增加一行字则增加15磅”的标准文本形式；同时还可以将没有内容的行隐藏，实现最舒服的形式。

具体步骤

1、新建一个Excel文件，按下Alt+F11打开VBA窗口，复制下面的代码进去，将需要动态调整行高的信息放入B列。

2、按下F5快捷键运行代码。

代码第一部分实现行高的自动调整，空行25磅，其余行高为25+15*（单元格的行数）。

3、代码第二部分将空白行隐藏。

代码说明

代码总体分为两段（可分段使用）：

第一部分——将行高调整至标准形式；

第二部分——隐藏内容为空的行。

第一部分：

下面的代码做了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

扩展延伸

搭配单元格的列宽、页眉页脚等可建立自己的固定阅读形式、文档输出模板。

有什么想法或建议欢迎留言，可以定制代码噢~

关注Gavin与狗，让你解放双手！

可爱的你，从转发/点赞/收藏三连做起 👇