VBA批量统一Excel课表字体：Range.Font实战指南

每次拿到一份从系统里导出的课表，打开Excel的一瞬间我都要深吸一口气：标题可能还是宋体加粗，表头却变成了等线，这周几列里的英文课程名又自动套用了Calibri，字号有大有小，颜色有黑有蓝，加粗更是随心所欲——整个工作表像几个不同模板拼出来的缝补货。手动一格一格调？课表少说也有几十上百个格子，中间还夹着不少合并单元格，选中都费劲，更别提每次都要重复一遍。后来我把这套流程写成了VBA宏，用Range.Font在指定单元格范围内批量设置字体样式，几秒钟就能把一张乱糟糟的课表收拾得整整齐齐。这篇文章就把这套思路完整拆开，从范围定位到Font对象用法，再到处理导出课表单元格时的合并、空白、受保护等真实细节，全部讲清楚。不管你是刚接触VBA的新手，还是已经写过不少宏的办公老手，都可以直接照着抄。

1. 导出课表的字体乱象，先从结构上找原因

1.1 系统导出课表的“风格不统一”到底长什么样

我处理过的课表导出文件来自不同系统，但问题出奇一致：根本原因是课表不是由一个整体模板生成的，而是多个模块拼接。比如标题行来自系统首页模板，表头行来自排课模块，内容区又来自教师数据接口，这些模块各自的字体定义完全不同，导出时Excel只是把它们原样写进了同一个工作表，就成了你看到的大杂烩。

症状通常集中在这几类：

• 字体名称不统一：同样的中文内容，有的单元格是宋体，有的是等线，有的甚至是台湾版Excel里常见的标楷体或PMingLiU；
• 字号乱：标题16号、表头12号、内容10号都有，但在拼接时可能被统一覆盖，出现标题比内容还小的诡异情况；
• 加粗状态错位：该加粗的星期列没加粗，明明只是备注的文字却被设成了Bold；
• 颜色和填充对比度差：比如表头用了深色填充却配了黑色字，或者白底配浅灰字，打印出来根本看不清；
• 合并单元格带来的衍生问题：标题行跨列合并后字体设置被“平均化”，表头区域的某些合并格让整列字号无法统一。

还有一种情况容易被忽略——数字和英文。很多系统中文字体处理没问题，但遇到英文课程名、班级编号这类ASCII字符，Excel会自动套用Calibri或Arial，一旦表格里中英文混排，字体风格就彻底分裂了。这也是为什么简单地把所有单元格设成“宋体”并不能解决问题，必须显式指定中文字体名，让中英文都统一走同一种字体。

1.2 为什么推荐用VBA而不是手动改或者录制宏

手动修改的痛处不用多说，尤其课表这种大量合并单元格的结构，你先得花时间记住哪些格子是关键，再挨个选中设置，肉眼检查一遍还可能漏掉角落里的几个单元格。

录制宏看似是个捷径，但录出来的代码有一个致命问题：全部是绝对引用。你录的是A1到G10，换一张课表变成A1到H15就废了；而且录制得到的代码大量使用Select和Selection.Font，每步都要切换对象选中状态，运行效率低、代码又臭又长。真正放在生产环境里，这种代码几乎不可维护。

VBA直接操作Range.Font则完全不同。它把“选中”和“修改”两步合并成一步，你可以直接告诉Excel：从第2行到最后一行、从第1列到第6列这一片区域，字体统一成微软雅黑、字号10.5、加粗去掉。一条语句完成一整片区域的批量设置，不需要逐格遍历。更关键的是配合行数和列数的动态计算，可以做到换一套课表也不用改代码。这才是自动化真正的价值。

2. 指哪打哪：单元格范围的定位方式要分场景

字体设置的前提是定位区域。很多新手一上来就写Range("A1:G20")，换一张表就出错，问题就出在范围是写死的。课表的结构虽然大同小异，但行数、列数会变化，必须根据不同场景选用不同的定位方式。

2.1 已知模板结构：用固定Range最省事

如果系统导出的课表格式固定，比如永远是标题在第1行、表头第2行、内容从第3行开始到第8行结束，直接用固定Range当然最省事。

' 固定区域，五列七天，共五行内容 Sheet1.Range("A3:F7").Font.Name = "微软雅黑" Sheet1.Range("A3:F7").Font.Size = 10.5

这里有个细节值得提醒：Range("A3:F7")这段写法里，第一个参数是左上角单元格地址，第二个参数是右下角单元格地址。如果你用Range("A3", "F7")这种双参数写法，两个参数都必须是带行列号的字符串，不能只写列名。另外，Cells(row, col)这种坐标写法在动态场景里更好用，后面会频繁出现。

固定Range适合一次性处理，但它的局限也很明显：表格一旦插入一行、删掉一行，范围就偏了。所以只要数据会有变化，我都建议至少把右下角最后一行用动态方式算出来。

2.2 课表行数不固定：用End和CurrentRegion动态定位

动态定位最常用的是End属性，它等同于在单元格里按Ctrl+方向键。假设课表内容区从A1开始，一直连续延伸到A列最后一行没有空行，可以这样取最后一行：

Dim lastRow As Long lastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

这句的意思是：从A列最底端向上找第一个非空单元格，拿到它的行号。用xlUp而不是xlDown，是因为很多模板文件在A1下面可能有合并单元格或者空行，用xlDown从A1往下找，遇到第一个空单元格就停了，取到的根本不是真实边界；而xlUp从工作表底部往上找，容错性高得多。

如果课表是一个连续的矩形数据区域，用CurrentRegion更省心：

Dim rngData As Range Set rngData = Sheet1.Range("A1").CurrentRegion

CurrentRegion会以A1为起点，自动向上下左右扩展到连续非空区域。它和“按Ctrl+A选中连续区域”是一个效果。这个属性最大的好处是不用关心行列数，尤其适合处理那种表头下面还带着几行备注的情况。

但注意CurrentRegion的天敌是空行空列。如果课表内容区中间有整行空白或者整列空白，它就会把空白当成分界线，扩展范围自动缩水。我建议在使用前先肉眼确认数据连续性，或者用上一节的End方法先算行列，再构造Range。

2.3 多块不连续区域：Union组合再统一设置

有些课表导出后，除了主表，底部还有一个“备注”“调课说明”之类的文本区域，你想让这部分的字体和主表内容区保持一致。两块区域中间隔着空白行，没法用一个矩形Range覆盖，这时可以用Union把多个区域组合起来，一次性设置字体。

Dim rngMain As Range, rngNote As Range, rngAll As Range Set rngMain = Sheet1.Range("A3:F10") Set rngNote = Sheet1.Range("A14:F16") Set rngAll = Union(rngMain, rngNote) rngAll.Font.Name = "微软雅黑" rngAll.Font.Size = 10.5

Union返回的是一个不连续的区域对象，你往它的Font上赋值，Excel会自动把规则广播到所有子区域。省去了两个区域分别写两遍代码的冗余，后期要改字体名也只需要改一处。

不过要提醒一句：Union适合各区域字体规则相同的场景。如果主表内容区是10.5号、备注区要9号斜体，那就老老实实分开设置，别硬拿Union强行统一，否则后面还得覆盖回来，反而多写代码。

3. 弄懂Range.Font，才能做到一套代码打天下

3.1 Font对象的属性与含义

Range.Font返回的是这个区域的字体对象，它聚合了字体相关的全部设置。我做了个常用属性表，写代码时对着查就行：

这里有一个关键认知：Font是区域对象的子对象，不是独立的单元格级对象。也就是说，Range("A1:F10").Font这一个对象就代表整个区域的字体状态，你给它赋值，区域里每个单元格都会按规则应用。不要再写那种For Each一个一个改Font的循环，性能差还容易出错。

Bold这个属性还有点特殊，它不只是True或False，还可能是Null。Null来自单元格样式继承的“未定义”状态，比如某个单元格用了内置样式，样式里没明确指定加粗，它的Font.Bold读出来就是Null。所以代码里判断加粗状态时别用If Font.Bold = True，要用If Font.Bold Then，这样Null也算False。

3.2 整块赋值与逐格遍历的取舍

直说结论：能整块赋值就整块赋值，逐格遍历是在万不得已时才用的方案。

原因很简单，Excel对Range.Font的批量赋值有内部优化，它会把一条指令广播到整个区域的所有单元格，而不是真的在后台一格一格地处理。我拿一张100行×6列的课表做过计时实测：

Dim startTime As Double startTime = Timer ' 整块赋值 Sheet1.Range("A3:F102").Font.Name = "微软雅黑" Sheet1.Range("A3:F102").Font.Size = 10.5 Debug.Print Timer - startTime ' 结果：0.02秒左右

同样的区域，用For Each逐个单元格设置，600个单元格循环一遍，耗时在0.5秒到0.8秒之间，跟区域大小线性增长。单次看不出差距，但如果你在一张有几个工作表的工作簿里逐表处理，累加起来的等待就很明显了。

逐格遍历也有它的价值，典型场景是“每个单元格不同状态需要判断”。比如课表里空白格要继承前一个单元格的内容和字体，这时就必须循环：

Dim cell As Range For Each cell In Sheet1.Range("A3:F102") If cell.Value = "" Then cell.Value = cell.Offset(-1, 0).Value cell.Font.Name = cell.Offset(-1, 0).Font.Name End If Next cell

但我建议的方式是分层处理：先用整块赋值把所有单元格统一成基本样式，再对特殊单元格做局部覆盖。这样既拿到整块赋值的高性能，又能保留逐格处理的灵活性。

3.3 颜色的门道：RGB、ColorIndex、主题色的坑

设置字体颜色时，RGB函数是最直观也最稳妥的。RGB(红, 绿, 蓝)三个参数都取0到255，红绿蓝三原色调出你想要的颜色。

' 深蓝色字体 Selection.Font.Color = RGB(0, 102, 204) ' 白色字体 Selection.Font.Color = RGB(255, 255, 255)

ColorIndex是Excel内置调色板里的索引，1到56代表预先定义的颜色，经典用法是ColorIndex = 1（黑）、2（白）、3（红）。它的优点是代码简短，缺点是颜色上限少、不同版本Excel调色板有差异，同一数字在不同主题下可能不是同一种颜色。我自己的习惯是业务报表一律用RGB，遇到需要让用户选颜色的场景才用ColorIndex。

这里特别提醒使用ThemeColor的坑。ThemeColor是跟着Office主题走的，比如你在自己电脑上把字体设成“强调文字颜色1”，看着是深蓝，但文件发到同事电脑上，如果对方Office主题不一样，字体会自动变成另一种颜色。课表这类需要跨电脑分发的文件，我用主题色的原则是：除非明确要做主题联动，否则全部用固定RGB值。

想读取现有单元格的字体颜色，可以在立即窗口里这样调试：

Debug.Print Sheet1.Range("A1").Font.Color ' 输出的是RGB整数值，比如39423 Debug.Print Sheet1.Range("A1").DisplayFormat.Font.Color ' 兼容主题颜色覆盖后的显示效果

输出结果就是RGB()函数可直接使用的Long整数。比如39423换算成RGB就是RGB(0, 112, 192)。这个技巧在实际工作中很管用，从旧课表里取样配色再应用到新课表，只靠这段代码就能完成。

4. 处理课表单元格的完整实战：从源数据到成品样式

4.1 先定义样式规范，想清楚再动手

接到“把课表样式统一”的需求时，别急着写代码，先把样式规范定下来。我经手过的课表通常分四个层级：标题行、表头行、内容区、备注区。每个层级的字体规则都明确写下来，处理时才不会反复推翻。

这个规范看起来简单，但它是所有代码的“验收标准”。你后续调试代码、检查效果都是拿这张表逐项核对。另外我建议中文字体统一使用微软雅黑或等线，二者都是Office自带，跨电脑不会丢字体。宋体虽然也是标配，但在高分屏上显示偏细，真比不上雅黑清晰。

4.2 完整代码：一个可复用的课表样式宏

下面是完整宏代码，我把每一段的作用都写在注释里，可以直接粘贴到VBA模块里使用：

Sub FormatScheduleSheet() Dim ws As Worksheet Dim lastRow As Long, lastCol As Long Dim rngTitle As Range, rngHeader As Range, rngContent As Range Dim rngNote As Range ' 默认处理当前活动工作表，防止误跑别的表 Set ws = ActiveSheet ' 安全检查：工作表是否被保护 If ws.ProtectContents Then ws.Unprotect Password:="" ' 按实际情况填密码 End If ' 动态计算最后一行和最后一列 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 结构校验：至少要有标题、表头、一行内容 If lastRow < 3 Or lastCol < 3 Then MsgBox "当前表结构不符合课表模板，请检查后再运行。", vbExclamation Exit Sub End If ' 按结构定义区域 Set rngTitle = ws.Range("A1") ' 标题 Set rngHeader = ws.Range(ws.Cells(2, 1), ws.Cells(2, lastCol)) ' 表头 Set rngContent = ws.Range(ws.Cells(3, 1), ws.Cells(lastRow, lastCol)) ' 内容区 ' 先给整张表统一基础字体，避免中英文混排的字体分裂 ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Font.Name = "微软雅黑" ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Font.Size = 10.5 ' 标题行单独设置 With rngTitle.Font .Size = 16 .Bold = True .Color = RGB(51, 51, 51) End With ' 表头行：加粗白字蓝底 With rngHeader.Font .Size = 12 .Bold = True .Color = RGB(255, 255, 255) End With rngHeader.Interior.Color = RGB(0, 102, 204) ' 内容区：去除加粗，恢复正常颜色 With rngContent.Font .Bold = False .Italic = False .Color = RGB(0, 0, 0) End With ' 内容区边框：浅灰色细边框，课表才看着清爽 With rngContent.Borders .LineStyle = xlContinuous .Weight = xlThin .Color = RGB(192, 192, 192) End With ' 自动调整列宽和行高 ws.Cells.EntireColumn.AutoFit ws.Rows(1).RowHeight = 30 ' 标题行加高 ws.Rows(2).RowHeight = 22 ' 表头行 MsgBox "课表样式设置完成。", vbInformation End Sub

这段代码的处理逻辑是递进的：先全表统一字体会把之前所有混乱状态全部覆盖掉，再分别覆盖标题行和表头行，最后内容区恢复默认。很多人习惯反过来先设置内容区，最后发现表头被内容区设置覆盖了，又要回过头改，没必要。

4.3 合并单元格与空白单元格的真实处理

课表里合并单元格是绕不开的话题。先说结论：合并单元格并不会阻碍Range.Font设置。哪怕一个区域是合并的，你直接对整个区域设置字体，合并区域内的所有格子都会生效，单元格显示的就是合并区域左上角的值，样式也应用到这个值上。

真正的坑在于动态定位。前面提到用CurrentRegion或者End来算范围时，如果某些列整列都被合并了，excel的End定位会变得不可靠。常见现象是标题行合并了A1:F1，你用Range("A1").End(xlDown)找最后一行的位置，从A1出发按下方向键时，因为下面区域可能没有合并，直接跳到了数据最后一行，似乎没问题；但如果A列第一列本身也做了垂直合并，比如把A3:A7合并成了一个“上午”大单元格，这时从A1往下找就会直接跳过这些内容，取到的行号就不对了。

稳妥做法是避开可能被合并的列，找一个确定没有合并的列来做边界计算，或者干脆用UsedRange先取整个使用区域再收缩：

Dim ur As Range Set ur = ws.UsedRange lastRow = ur.Row + ur.Rows.Count - 1 lastCol = ur.Column + ur.Columns.Count - 1

注意UsedRange取的是“曾经使用过”的区域，包含删过内容的格子残留的格式区域，所以取出来的范围偶尔会偏大。但用来做安全边界足够，大不了多覆盖几个空格。

另一个常见需求是“拆分合并单元格后，空白格等于前一个单元格的内容”。比如系统导出的课表里，同一门体育课合并了好几行，你为了做数据统计把这些合并拆了，拆分后只有第一行有课程名，其余是空白。下面这段代码就能把空白向下填充，同时把字体也一并继承：

Dim r As Long, c As Long For c = 1 To lastCol For r = lastRow To 3 Step -1 If ws.Cells(r, c).Value = "" Then ws.Cells(r, c).Value = ws.Cells(r - 1, c).Value ws.Cells(r, c).Font.Name = ws.Cells(r - 1, c).Font.Name ws.Cells(r, c).Font.Size = ws.Cells(r - 1, c).Font.Size End If Next r Next c

这里必须从下往上循环。如果从上往下，填充后的当前格子有了内容，下一个格子判断它是不是空时就会跳过，导致只填充一半。从下往上则不会影响上方尚未处理的原始状态。这个顺序问题是我第一次写就踩过的坑，后来养成了习惯：凡是填充上值的逻辑，一律倒序循环。

4.4 收尾：行列调整和文件保存

样式设置完成后，不要急着关文件。我先做两件事：

一是根据内容调整列宽行高，避免内容被截断。上面的代码里用了AutoFit，但AutoFit对合并单元格无能为力，所以标题行和表头行我额外手动指定了RowHeight。如果你不希望行高超乔太高，也可以在自己觉得合理范围内固定。

二是检查页面设置，尤其是要打印的课表。课表通常横向打印才能在一页里放下，所以我会顺手设置一下页面方向：

With ws.PageSetup .Orientation = xlLandscape .FitToPagesWide = 1 .FitToPagesTall = 1 .Zoom = False End With

最后别忘了文件要另存为.xlsm格式，否则宏代码会被丢弃。这是新手最常翻车的地方：宏写好了，保存成.xlsx，关掉再打开，宏没了，一切白干。

5. 这些“小翻车”我都替你踩过了

5.1 字体名称在同事电脑上“消失了”

字体设置看似简单，最隐蔽的坑反而不在代码，而在字体本身。某次我给课表统一成“思源黑体”，自己机器上显示完美，发给教务老师后，整个课表变成了默认宋体，连对齐都乱了。原因很简单：对方电脑没装思源黑体，Excel自动用系统默认字体替换了。

解决方案分两种：

• 保守方案：只用Office全家桶都自带的中文字体。宋体、黑体、楷体、微软雅黑、等线这几种都算安全；
• 激进方案：如果你的企业统一部署了自定义字体，且确认每台机器都有，也可以直接用。但需要先在IT群里问清楚，别自己装了就默认大家都装了。

我还要多说一句：Font.Name直接写中文名最方便，比如"微软雅黑"，VBA完全认识。有些教程让你写英文字体名"Microsoft YaHei"，也可以，但特容易拼错，一旦拼错就是个静默错误，不会报错，只是字体没变。我的习惯是中英文都行但固定用中文名，至少不会拼错。

5.2 Bold状态是Null，ClearFormatting才是真·复位

模板或系统导出的单元格，Font.Bold经常是Null而不是False。这就导致一个问题：你遍历单元格，判断某个格子是否加粗，想把它恢复为默认状态时，代码可能走了半天一个格子都没匹配上。

碰到这种情况，最彻底的办法是先用ClearFormatting清空该区域的格式，再重新应用你要的样式。但ClearFormatting会把边框、填充色、对齐全抹掉，所以只适合在“整个区域样式都无所谓，我即将全部重设”的场景使用。如果只是想统一字体和加粗，不要用ClearFormatting，老老实实逐项赋值即可。

我自己的经验是：写代码前拿一张代表课表样本，先运行一段小脚本把每个区域当前的Font.Bold、Font.Size、Font.Name都打印到立即窗口，掌握了“素材现状”再动手。“不知道原始状态是什么”是绝大多数样式宏跑完效果莫名其妙的原因。

5.3 整列设置范围过大，把表格外的区域也改了

很多人在设置的时候图省事，直接写：

ws.Columns("A:F").Font.Name = "微软雅黑"

这句会让A列到F列整列的所有单元格字体都变成微软雅黑，包括表格下方那些本来想保留的统计区、备注区，甚至没有任何内容的空格子。字体的变化对于空单元格来说无伤大雅，但如果下方已经有其他模块的内容，就会被误伤。

我的建议是始终给范围收口。哪怕你觉得“反正下面没内容”，也尽量用lastRow收口。这不仅是代码洁癖，还能避免后续有人在表格下方追加内容时，突然发现字体被历史宏“诅咒”了。

5.4 工作表被保护导致运行中断

系统导出的课表有时会带上工作表保护，虽然能看能打印，但宏运行时一碰到字体设置就会弹出提示或者直接报错。处理办法很简单，在宏开头加一段自动解除保护；

If ws.ProtectContents Then ws.Unprotect Password:="" End If

密码为空的话，这样就能解开。如果有密码，你需要知道密码才能写进去。我不建议在代码里硬编码密码，万一人事变动、密码改了，宏就要返工。更好的做法是弹出一个输入框让用户填密码，或者在确认大家不需要改密码时提醒用户手动取消保护。

5.5 合并单元格分散时，别忽略合并状态的顺序

最后一个坑是关于操作顺序的。如果你既要拆分合并单元格、又要设置字体、还要补空白内容，顺序很重要：

1. 先处理合并单元格的拆分/合并；
2. 再做范围定位和边界计算；
3. 最后才设置字体和填充空白。

顺序反了会产生连锁问题。比如你先设置完字体再拆分合并，拆分后的其余单元格会继承被合并区域的字体规则，表面看没问题，但一旦你想填充空白并继承上一格字体，出现的就是继承的旧字体而不是你想要的新字体。这个顺序逻辑对任何表格处理都适用：结构先行，样式在后。

6. 把这段代码封装成你的“样式武器库”

6.1 通用ApplyFont过程，参数化复用

实战中你不会只处理课表，教职工名单、排课汇总、教室借用表都可能需要统一字体。与其每次都复制粘贴一大段代码，不如封装一个通用过程：

Sub ApplyFont(rngTarget As Range, _ Optional strFontName As String = "微软雅黑", _ Optional intFontSize As Single = 10.5, _ Optional blnBold As Boolean = False, _ Optional lngColor As Long = 0) With rngTarget.Font .Name = strFontName .Size = intFontSize .Bold = blnBold .Italic = False If lngColor <> 0 Then .Color = lngColor End With End Sub

这样处理课表样式时，主体代码会变得非常干净：

ApplyFont rngTitle, intFontSize:=16, blnBold:=True, lngColor:=RGB(51, 51, 51) ApplyFont rngHeader, intFontSize:=12, blnBold:=True, lngColor:=RGB(255, 255, 255) ApplyFont rngContent

注意这里Optional参数使用了默认值，调用时不传的参数自动取默认值。用lngColor等于0作为“不设置颜色”的哨兵，是因为黑色也是RGB(0,0,0)，没法直接判断“用户是否传了颜色”，所以用一个不可能作为实际颜色的0来判断，指纹简单还不会冲突。

6.2 用Select Case或字典管理多区域样式

等区域的样式规则越来越多，Sub过程一层层调用也会变得难维护。这时候我用一个“样式配置表”的思想来管理：把每个区域的名字和样式规则集中起来。

用Select Case最直白：

Sub ApplyStyleByRegion(strRegion As String) Dim rng As Range Set rng = GetRegion(strRegion) ' 自己写的区域映射函数 Select Case strRegion Case "Title" ApplyFont rng, intFontSize:=16, blnBold:=True, lngColor:=RGB(51, 51, 51) Case "Header" ApplyFont rng, intFontSize:=12, blnBold:=True, lngColor:=RGB(255, 255, 255) rng.Interior.Color = RGB(0, 102, 204) Case "Content" ApplyFont rng End Select End Sub

如果你熟悉VBA字典，也可以用字典把样式参数存成数组，循环应用。字典的好处是新增区域只需要在初始化的字典里加一行，不需要改主逻辑。不过初学者还是建议先玩熟Select Case，逻辑更直观，不容易写错。

6.3 把宏放进个人工作簿，装进“随身工具箱”

如果你希望在任意Excel文件里都能调用这段样式处理的宏，最好的方式是把它放到个人宏工作簿Personal.xlsb里。操作方法很简单：在Excel里录制一个任意宏，保存位置选择“个人宏工作簿”，之后VBA编辑器里就会多一个VBAProject(PERSONAL.XLSB)，把你的代码粘进去，保存即可。

放到个人工作簿后，任何工作簿都能通过Alt+F8调用这个宏，适用范围瞬间从“处理课表”扩展成“处理所有表格的字体样式”。配合快速访问工具栏，可以把宏绑定一个小按钮，以后打开Excel选中区域直接运行，效率再次翻倍。

我个人处理每月课表导出的习惯是：先整理一份“本月课表汇总.xlsm”，里面放着全部样式宏，处理时直接把系统导出的课表复制进这个工作簿，运行宏，存盘，关掉。长期做下来，整个流程稳定在1分钟以内。这个思路你可以直接借鉴，也可以按自己业务场景调整个数。一套顺手的小工具，比每次重新“救火”省心太多了。