企业官网建设流程全解析

做投标文件、项目周报或科研报告的朋友，应该都体会过这种酸爽：文档里排了十几二十张统计表，每张表规格差不多，但全是空壳子。你的任务是把最近一周的数据一行一行填进去，老板还会补一句“格式别动，该加的行加上就行”。手动一张一张点【表格工具-布局-在下方插入行】，然后复制粘贴、调格式、对齐、填数……二十张表搞下来，两三个小时就没了，中途还要担心哪张表少填了一行、哪张表格式错位了。今天这篇就来聊聊这种“多个表格批量插入多行内容”的批量操作方法，讲讲什么时候该用Word宏、什么时候改走Python程序化路线、什么时候用通配符也能糊弄过去，顺便把我在各种现场趟过的坑一并交代清楚。

1. 动手前先理清需求：批量操作到底要插什么、插到哪

很多人一上来就搜“Word批量操作”，然后抄一段代码就跑，结果插出来的行要么位置不对，要么把合并单元格搞得稀烂。我建议你动手之前，先花五分钟把需求说清楚，因为“插入多行内容”这六个字在不同的文档里，其实指向完全不同的操作。

1.1 三种常见需求形态

先对照一下你的实际场景，看属于哪一类。

**形态A：所有表格统一插入相同行数的空行或固定内容。**比如一份方案里有八个结构完全一样的明细表，每个表需要追加三行空白行，或者追加三行都是“待补充”字样的占位行。这种需求最简单，重点是“一视同仁”地批量处理。

**形态B：表格结构差不多，但每个表格要插入的行数不一样。**比如第一个表插两行，第二个表插五行，第三个表插一行，具体行数写在一张纸或者Excel里。这种需求的关键是“每个表格单独计数”，不能用一个固定数字套所有表。

**形态C：每个表格要插入的内容来自外部数据。**比如有一份报价单模板，里面有十几个表格，每个表格要新增几行，行里的金额、数量、品名都来自Excel里的记录。这种需求最贴近真实生产环境，已经不是“插入空行”的问题，而是“按数据自动生成行”。

我的建议是：先判断你属于哪一类，再决定方案。形态A用最简单的方式就能搞定，形态C就得认真考虑写VBA或Python脚本，因为一旦数据量大，手动复制粘贴绝对会出漏子。

1.2 表格结构决定批量难度

第二个要搞清楚的是表格本身长什么样。如果文档里所有表格都是规规矩矩的矩形：列数固定、没有合并单元格、没有嵌套表格，那恭喜你，下面所有方案你都能用，随便挑一个顺手的就行。

但如果表格里有跨行合并、跨列合并，甚至表格里嵌着一个小表格（Word里叫嵌套表格），情况就复杂了。因为合并单元格会影响“行数”的统计方式，VBA的Tables集合遍历顺序和你在屏幕上肉眼看到的顺序不完全一致；Python-docx处理合并单元格更是容易翻车。

再有，“插入多行内容”也可能有两种理解：一种是真的增加表格的行数（比如原来3行变6行）；另一种是在某个单元格里插入多个段落（比如在一个单元格里换行写三条备注）。这两种操作的本质完全不同，前者针对Row对象，后者针对Range对象。我下面讲代码的时候会把这两种情况区分开，免得你抄了代码发现只解决了其中一半。

2. 主流方案画像：为什么首推VBA，什么情况该用别的

关于“批量操作”，市面上能走的路无非三条：Word内置的VBA宏、Python程序化处理、通配符查找替换。我先把这三条路的适用边界说清楚，免得你盲目选型。

2.1 VBA宏：Word内的“万能螺丝刀”

VBA宏是Word自带的脚本环境，最大的优点是直接操作当前文档的表格对象，所见即所得。插入行能精确指定位置，能填充内容，能复制格式，还能读取Excel数据来驱动填充——几乎所有你手动能干的事，它都能干，而且干得更快。

它的缺点是“宏安全”问题。Word默认禁用带宏的文档，你得手动放行；另外不同版本Word的VBA对象模型略有差异，但操作表格的Table对象、Row对象在近十几年的版本里都很稳定，你基本不用担心兼容性。

我推荐大部分办公用户用它，因为Word本身就是承载文档的工具，VBA就在同一个进程里干活，不需要额外装环境。哪怕你完全没写过代码，把下面第三节的代码整段复制进宏编辑器，改改参数也能跑。

2.2 Python-docx：适合批量产出、脚本化复用

如果你是那种经常要处理上百个docx文档、或者需要把Excel数据清洗后再塞进Word表格的人，那可以学学Python-docx。它是一个Python库，不启动Word进程，直接解析docx文件里的XML内容，然后改完再保存成新文件。

它的优势是真正的“批处理”——你可以写一个脚本同时处理50个文档，而VBA一次只能处理当前打开的文档。代价是你需要懂一点Python，而且对合并单元格、复杂样式这些“高级特性”支持得不够友好。很多人在Python-docx里一碰合并单元格就报错，或者样式丢失，就是因为docx的XML结构比我们想象中复杂得多。

2.3 通配符查找替换：看起来很美，但边界要清楚

网上有很多讲Word通配符查找替换的文章，从基础到高阶都有，但我必须说实话：通配符适合处理“文本”，不太适合处理“表格的行结构”。它没办法直接通知Word“在第三个表格后面新增一行”，因为它本质上是一个“查找文本并替换文本”的引擎。

通配符真正能做的是：如果每个表格的特定单元格里有一个占位符（比如{{待插入}}），你可以用查找替换把“{{待插入}}”替换成“第一行内容^l第二行内容^l第三行内容”，这样就在单元格里生成了多行文本。注意，这个操作不会增加表格行数，只是在单元格内换行。如果你的需求就是“在单元格里堆内容”，那通配符反而是最快的方法，根本不用写代码。

2.4 三种方式对比速览表

看完这表你应该能判断了：如果你要增加的是“真正的表格行”，核心路线就是VBA或Python。如果你要的只是“单元格内出现多行文字”，那通配符替换反而最省事。

3. 核心实操：用VBA宏给多个表格批量插入多行

这部分是整篇的干货核心。我会从开启宏环境开始，逐步走到读取Excel数据批量填表，每一步都给出可复制的代码。

3.1 启用宏与宏安全设置

想让VBA跑起来，先要做两件事。

第一，把文档另存为启用宏的格式：点击【文件】-【另存为】，文件类型选择“Word启用宏的文档(*.docm)”。如果你直接在普通的.doc或.docx里写宏，保存时会弹警告，而且重开后宏会丢。

第二，打开“开发工具”选项卡：在Word功能区空白处点右键-【自定义功能区】，在右侧勾选【开发工具】。如果你用的是Mac版Word，路径也类似，在【偏好设置】里能找到“开发工具”的开关。

第三，处理宏安全设置。我个人的建议是不要图省事直接选“启用所有宏”，因为风险很大。正确做法是：把当前文档所在目录加入“受信任位置”，然后在【开发工具】-【宏安全性】里选择“禁用所有宏，并发出通知”，这样打开你自己的文档时，Word会询问是否启用宏，你点启用就行。

注意：如果你在公司电脑上操作，IT策略可能锁死了宏设置，这时候你可以尝试【开发者】-【Visual Basic】直接打开编辑器，如果在编辑器里能运行代码，就不受宏安全策略影响；如果连编辑器都打不开，那只能找IT管理员申请白名单。

3.2 基础版：对文档中所有表格统一插入N行

先说最简单的场景：文档里所有表格都要在末尾追加3行空行，并填充固定的列内容。

打开VBA编辑器：【开发工具】-【Visual Basic】，或者直接按快捷键 Alt+F11。在左侧工程窗口找到“ThisDocument”，双击打开代码页，粘贴以下内容：

Sub AddRowsToAllTables() Dim tbl As Table Dim i As Integer Dim targetRows As Integer Dim colCount As Integer ' 每个表格要插入的行数，按实际需求改 targetRows = 3 ' 遍历当前文档中的所有表格 For Each tbl In ActiveDocument.Tables ' 给个安全护栏：列数太少（比如只有1列）就不处理 colCount = tbl.Columns.Count If colCount < 2 Then GoTo NextTable ' 连续插入 targetRows 行 For i = 1 To targetRows Dim newRow As Row ' 在表格末尾追加一行 Set newRow = tbl.Rows.Add ' 有条件的话，把最后一行的内容清掉，避免默认格式带出文字 newRow.Range.Text = "" ' 填充第一列和第二列的内容 newRow.Cells(1).Range.Text = "新增行 " & i newRow.Cells(2).Range.Text = "待填写" Next i NextTable: Next tbl MsgBox "处理完成，共遍历了 " & ActiveDocument.Tables.Count & " 个表格" End Sub

拆解一下关键点。

For Each tbl In ActiveDocument.Tables是遍历文档所有表格的标准写法。但这里有个坑：遍历的是“文档主体区域”的所有表格，如果页眉页脚或文本框中也有表格，ActiveDocument.Tables不一定能覆盖到。如果页眉里有表格，需要使用ActiveDocument.StoryRanges另一种遍历方式，但大部分办公文档的表格都在正文里，所以这段代码够用了。

tbl.Rows.Add是Word表格追加行的标准方法，它返回被添加的行对象。默认情况下，新行会继承表格的样式，边框底纹这些一般不会丢，但如果你在原表格上手动调过某个单元格的底纹，那么新行不会自动复制这种局部格式。

newRow.Cells(1)表示新行的第一个单元格。注意，如果这一行里有合并过单元格，Cells(1)可能不是你视觉上的第一个单元格，这点在后面“常见问题”里会展开讲。

3.3 进阶版：给不同表格分别插入指定行数

接下来是形态B：每个表格要插入的行数不一样。

我常用的做法是把各表格要插入的行数写进一个数组，然后用一个计数器按表格顺序取值。如果你希望用表格标题来匹配而不是靠顺序，也可以用tbl.Range.Find检查表格第一行是否包含某些关键词，不过那样代码复杂度会上升，先看基础版本：

Sub InsertDifferentRowsPerTable() Dim tbl As Table Dim tblIndex As Integer Dim insertRows() As Integer Dim i As Integer, j As Integer Dim newRow As Row ' 假设文档里有3个表格，分别要插入2、5、3行 ReDim insertRows(1 To 3) insertRows(1) = 2 insertRows(2) = 5 insertRows(3) = 3 ' 计数器重置 tblIndex = 1 For Each tbl In ActiveDocument.Tables ' 防止数组越界 If tblIndex <= UBound(insertRows) Then For i = 1 To insertRows(tblIndex) Set newRow = tbl.Rows.Add ' 清空内容 newRow.Range.Text = "" ' 按实际需求填充列 newRow.Cells(1).Range.Text = "Table" & tblIndex & "-Row" & i Next i End If tblIndex = tblIndex + 1 Next tbl MsgBox "完成" End Sub

注意一个细节：ActiveDocument.Tables里的表格顺序是按文档位置从上到下的，基本对应你肉眼看到的顺序。如果你的文档里有嵌套表格（某个单元格里又套了一个表格），外层的表先被遍历，然后才是嵌套表。这时候用计数器对位，很容易把行数分错对象。遇到嵌套表格，建议改用“按表格编号显式定位”：

Dim n As Integer ' 显式按编号访问第一个和第二个表格 ' Word表格编号从1开始，按文档顺序排列 ActiveDocument.Tables(1).Rows.Add ActiveDocument.Tables(2).Rows.Add

这个写法不会受嵌套表干扰，但前提是你知道目标表格的固定编号。我一般会先写一行调试代码，把每个表格第一行的内容打印到立即窗口，确认编号对应关系后再批量。

3.4 实战版：从Excel读取数据批量填入表格

这是形态C，也是最贴近真实工作的场景。假设你有一个Excel文件，里面A列是序号，B列是品名，C列是数量，你想把这些数据按行追加到Word文档的表格中。

思路不复杂：先创建一个Excel Application对象，打开Excel文件，读取数据，然后在Word表格里逐行插入并填充。

Sub FillTableFromExcel() Dim excelApp As Object Dim wb As Object Dim ws As Object Dim rowCount As Long Dim tbl As Table Dim i As Long, newRow As Row ' 创建Excel应用对象（需要本机装了Excel） Set excelApp = CreateObject("Excel.Application") ' 打开Excel文件，注意修改路径 Set wb = excelApp.Workbooks.Open("D:\data.xlsx") Set ws = wb.Sheets(1) ' 假设数据从第2行开始，最后一行由Excel自动判断 rowCount = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 指定要填充的目标表格，这里用编号1 Set tbl = ActiveDocument.Tables(1) ' 从数据第2行开始循环 For i = 2 To rowCount ' 插入新行 Set newRow = tbl.Rows.Add newRow.Range.Text = "" ' 填充三列数据 newRow.Cells(1).Range.Text = ws.Cells(i, 1).Value newRow.Cells(2).Range.Text = ws.Cells(i, 2).Value newRow.Cells(3).Range.Text = ws.Cells(i, 3).Value Next i ' 关闭Excel并释放对象 wb.Close SaveChanges:=False excelApp.Quit Set ws = Nothing: Set wb = Nothing: Set excelApp = Nothing End Sub

这里有几个非常现实的卡点，我先打个预防针。

第一，Excel的行列排序和Word表格的列顺序不一定一致，你必须在写入前把字段映射关系理清楚。第二，如果Word目标表格只有两列，而Excel数据有三列，直接写入第三列会报错，所以写入前要对比列宽。第三，创建工作对象会调用本机Excel，如果Word以管理员身份运行，Excel普通权限可能被拦。

我的经验是：先在Excel里把数据预处理成“最终要落进Word表格的样子”，再让VBA做纯搬运，不要指望VBA一边读取一边清洗数据。数据越干净，脚本越稳。

3.5 运行宏的操作细节和注意点

代码粘贴好后，回到Word窗口，按 Alt+F8 弹出宏列表，选中你要运行的宏，点“运行”。

运行前我给你三个强制建议：

1. 先另存一份副本。宏一旦跑起来，出错了就是批量出错，没有后悔药。副本路径放到临时文件夹，跑完核对无误后再删。
2. 先在一个小文档上试跑。你可以新建一个只有两三个表格的测试docx，先跑一遍，确认插入行数、位置、格式都符合预期，再去跑真实文档。
3. 把宏放到Normal模板还是当前文档？建议放当前文档，因为你只需要这个文档用；放到Normal模板会导致以后所有新文档都带着这段宏，容易误触发，也会让文件被安全软件标红。

按照我的工作习惯，即使在VBA编辑器里调试通过，正式运行前也会先核对一遍文档的总表格数。我甚至会在代码最后加一句Debug.Print tbl.Range.Cells.Count来输出每个表格的单元格总数，在立即窗口快速确认有没有异常表。

4. 两条辅助路线：Python脚本和通配符小技巧

如果你不想碰宏，或者Word版本太老/太限制，可以考虑Python路线；如果需求简单，通配符反而更快。

4.1 Python-docx批量处理表格的完整思路

Python-docx操作表格比VBA更“文本化”，因为docx本质就是一个ZIP包，里面有word/document.xml这样的XML文件，Python-docx就是解析并重建这些XML。给多个表格插入多行，逻辑很简单：

from docx import Document # 打开文档 doc = Document("input.docx") # 遍历所有表格 for table in doc.tables: # 新增一行，默认追加在表格末尾 row = table.add_row() # 填充新行的单元格文本 row.cells[0].text = "新增" row.cells[1].text = "数据" # 另存为新文件 doc.save("output.docx")

如果你要给不同表格插入不同行数，也很直观：

insert_plan = [2, 5, 1] for idx, table in enumerate(doc.tables): n = insert_plan[idx] for _ in range(n): row = table.add_row() row.cells[0].text = f"表格{idx+1}"

表面上比VBA简洁，但实际用起来有几个深水区：

• 合并单元格：如果一个表格里有合并过列，row.cells这个列表的长度可能不等于视觉列数，赋值给一个不存在的cell元素会报错。
• 样式继承：add_row创建的行通常会继承表格样式，但如果原来某个单元格有局部底纹，新行不会自动带过来。
• 表格不在正文里：如果表格在文本框里，doc.tables默认不会算上，需要额外处理。

用Python-docx处理时，我会建议你打印一下每个表格的“行列结构”再动刀，先把len(table.rows)、len(table.columns)以及第一行所有单元格的文本打出来看看，确认没有合并单元格捣乱。

4.2 通配符查找替换能解决的几种情况

先澄清一个点：通配符查找替换只能操作文本范围，不能直接操作表格行结构。它在“批量插入多行内容”里最大的价值是：如果你每个表格的某个固定单元格里有一个占位符，你可以一键把占位符替换成多行文字。

假设你每个表格右下角都有一个写着“补充说明”的单元格，你想让这个单元格里出现三行备注。按下 Ctrl+H 打开替换，勾选“使用通配符”，查找内容写：

补充说明

替换为：

补充说明^l第一行备注^l第二行备注^l第三行备注

这个^l是Word里的手动换行符，代表“在单元格内换行”，点击替换后，“补充说明”四个字后面会自动追加三行文字。如果你用^p（段落标记）代替^l，效果是分成多个段落，在某些表格里看起来更正常。

注意：这个操作对所有匹配项生效，只要文档里出现“补充说明”这四个字，不管它是不是在表格里都会被替换。为了让替换更精准，建议把占位符写得特殊一点，比如{{补充说明}}，替换时匹配{{补充说明}}，避免误伤正文里的相同文字。

这个方法妙在没有宏、没有脚本，任何版本的Word都能用，而且速度极快。但它的边界也很清楚：它不能让你“在每个表格末尾新增一行”，只能在已有单元格内塞内容。如果你想要的是后者，那就必须回到VBA或Python路线。

4.3 邮件合并思路适用在哪里

还有一种不太被人想到的思路是邮件合并，它本质是“用外部数据源批量生成文档”。如果你要生成的是几十份结构相同、但每份文档都包含一个表格的合同、通知或报告，那可以直接用邮件合并功能，把表格的单元格字段绑定到Excel数据列，然后一次性生成多份独立文档。

它和“同一文档里多个表格批量插行”的区别在于：邮件合并面向的是“多份文档”，不是“一个文档里的多个表格”。如果你的场景更接近“一份总文档里有20个表格，数据来自Excel”，邮件合并帮不上忙；但如果你反过来——“要按Excel的20行数据，生成20份独立文档，每份文档有一个表格”，邮件合并就是最优解，不需要写任何代码。

我给一个最简单的操作路径：【邮件】-【选择收件人】-【使用现有列表】选Excel文件，然后在表格单元格里插入【插入合并域】，最后【完成并合并】-【编辑单个文档】。这个方案生成的行数是固定的（一行），如果你要求每个表格插入多行，需要用分组或重复内容功能，操作门槛会陡增，就不展开了。记住它的核心优势在于“生成多份文档”，仅此而已。

5. 常见问题排查与避坑清单

这章是我最想写的内容，因为这些坑我基本都趟过。很多代码看起来简单，跑起来就原地爆炸，问题往往出在你没预料到的地方。

5.1 插入的行格式错乱、边框丢失

最典型的症状：宏跑完后，新插入的行没有边框，或者底纹颜色不对，甚至行高明显比原来的行矮。

原因通常是Rows.Add只继承了表格样式级别的默认格式，没有继承“单独设置过”的单元格格式。如果原表格里某一行设置了特殊底纹，新行不会自动带出来。

解决思路有几个：一是插入后手动给新行设置边框和底纹，二是“复制再清空”——先把上一行复制一份，然后把复制出来的行内容清空，留下格式。后者的VBA写法大概是：

Set newRow = tbl.Rows.Add ' 先把上一行的格式复制过来 tbl.Rows(tbl.Rows.Count - 1).Range.Copy newRow.Range.PasteSpecial Format:=wdFormatOriginalFormatting ' 然后清空内容 newRow.Range.Text = ""

注意，复制粘贴格式在批量循环里会拖慢速度，如果只有几十行问题不大，几百行你就会感到明显卡顿。这时候我更倾向于循环结束后再统一设置一遍边框和底纹，代码虽然长一点，但维持了可控性。

5.2 表格行列统计不准，可能插错位置

如果你发现某个表格多插了两行，另一个表格没插，多半是表格顺序和你想的不一样。Word对表格编号的规则是“按文档中出现顺序”，但遇到嵌套表格时，外层表内嵌的子表会被当成另一个表，这个顺序对不熟悉的人来说很迷。

我排查时会先用一个临时宏打印所有表格的概览信息：

Sub ListTables() Dim i As Integer For i = 1 To ActiveDocument.Tables.Count Debug.Print i, ActiveDocument.Tables(i).Rows.Count, ActiveDocument.Tables(i).Columns.Count Next i End Sub

打开VBA编辑器按 Ctrl+G 打开立即窗口，运行这个宏，你就能看到编号、行数、列数。这样就能确认到底哪个表是第一个、哪个表是嵌套表。跑批量代码前做一次这种“摸底”，能省掉很多无效调试时间。

5.3 宏被禁用或提示安全问题

宏跑不起来，最常见的三种报错是“由于宏的安全设置，无法运行”“此文档已被保护”“权限被拒绝”。

第一类：按第三节的方法在信任中心设置里放行，或者把文档放到受信任位置。第二类：如果你的Word文档启用了编辑限制（【审阅】-【限制编辑】），需要先停止保护，路径是【限制编辑】面板里的“停止保护”。第三类：如果你用了公司加密软件，某些文件确实会拒绝VBA操作，这个只能联系管理员。

有一种很隐蔽的情况：文档是从WPS保存的docx，再拿到Word里打开，宏功能可能会受限。WPS对VBA的支持和Word并不是100%相同，如果代码在WPS里跑，最好用Word本身验证。

5.4 插入后列宽错乱、表格无法拖动列宽

这个坑在Excel里常见，Word表格里也有。插入新行后，列宽突然变成不规则分布，或者鼠标去拖表格线拖不动。

原因一般是表格启用了“自动调整”功能，而且新行引入了不同宽度。在代码里插入行后，可以显式关闭自动调整并重新设置列宽：

tbl.AllowAutoFit = False tbl.Columns(1).Width = 100 tbl.Columns(2).Width = 200

如果你发现“表格列宽无法拖动”，先检查是不是表格启用了“锁定列宽”或“自动调整窗口”。手动操作路径是：点表格任意位置，【表格工具-布局】-【自动调整】-【固定列宽】，然后再拖动列线。很多在Word里拖动列宽无效的情况，都是因为自动调整设置还开着。

5.5 其他顺手遇到的Word老毛病

除了表格本身，批量操作前后经常还会遇到几个Word经典问题。

比如“Word不能使用快捷键粘贴”，这通常是因为有某个插件（比如MathType、AxMath）抢占了Ctrl+V快捷键，或者输入法热键冲突。有人装了MathType之后Word里Ctrl+V失灵，是因为MathType的快捷键设置里映射了相同组合，建议在【文件】-【选项】-【加载项】里临时禁用可疑插件排查。

再比如“Word里Visio图形只有转换是怎么回事”，通常意味着这个图形不是原生嵌入的Word绘图对象，而是一个链接对象或者受保护对象。这种问题不影响表格批量操作，但如果你的文档里有大量Visio图，要小心修改文档时触发链接更新，导致Word卡死。批量操作前最好先断开链接：【文件】-【信息】-【编辑指向文件的链接】。

另外，“电脑里同时装了AxMath和MathType，在Word里用AxMath插入公式跳出的是Math”也属于环境问题，是因为两个公式编辑器的COM Add-in都在Word里注册了，快捷键冲突。处理办法是禁用其中一个加载项，这跟你批量操作表格无直接关系，但如果你接下来要处理公式较多的理工科文档，就一定要先排除这个问题，否则VBA循环一跑，公式来回跳动很容易让Word崩掉。

5.6 常见问题速查表

我这次在文档批量处理中，印象最深的一次翻车就是因为没先备份。当时一个工程文档有七十多张表，代码里列数判断写错了，跑完全部表格新增了300多行错误数据，最后只能从备份里恢复重来。从那以后我给自己立了个规矩：批量操作前文件备份，批量操作后立即肉眼抽查前5个表格和后5个表格，确认无误再执行下一步。

我个人在实际操作中的体会是：VBA宏并不是越复杂越好，而是越贴合当前文档越好。你只需要把“插入几行、插到哪、填什么、什么格式”这四个问题在代码里写死，其他花里胡哨的通用性都不重要。有一次接手别人的通用宏，里面处理了十几种异常情况，结果一运行反而在一个很简单的表格上莫名其妙多出几行空行，查了半天发现是他的异常分支误触发了。所以我的建议很简单：自己的批量操作，代码自己能看懂，越短越稳。

最后再分享一个小技巧：如果你不想从头写VBA，可以用“录制宏”偷个懒。手动在一个表格里插入一行并填好内容，期间打开宏录制器，操作完后停止录制，进入VBA编辑器看生成的代码，里面就有Word自动生成的添加行和写入文本的语句。虽然不是最优雅的写法，但你只要把单次操作改成For Each循环，一个批量宏的雏形就出来了。整个套路我在很多项目里都用过，稳定、快、好理解。希望这篇能把你的表格批量操作从“手动一下午”变成“宏运行十秒”。