vsflexgrid单元格换行后自动使用行高_干货｜案例03期：VBA助力表格动态调整行高...

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 rown As Integer    Dim high As Integer    Dim charlen As Integer    Dim k As Integer    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        For i = 1 To k            If Range("B" & i) = "" Then                Rows(i).Hidden = True            End If        NextEnd Sub

05

扩展延伸

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

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

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

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