周公笃行的博客

此前与大家分享过一键提取文件目录和文件名的方法，并且VBA中加一句语句就可以使提取出来的文件名带有链接，这样很方便在对大量文件进行检查时不必在资源管理器里到处翻目录，所见即所得，点击文件名即可打开文件。是个实际工作中非常实用的小技巧。但是有时候由于将保存目录信息的excel文件移动到了其他目录下或者分享至其他计算机等原因，常常遇到文件链接失效的情况。此时，也可以通过简单的VBA实现一键修复链接。

在某些行业工作中，可能会遇到需要将角度或者坐标数值进行格式转换或者单位换算的情形。有很多小工具可以实现这样的换算，也有一些大型的专业软件带有单位换算的模块或者小插件，或者在excel单元格中写入计算公式。其实使用VBA写个函数也可以很方便地进行转换，在用Excel进行数据处理时就不用再打开其他软件进行换算了。例如，已知了度分秒格式的数据，需要转换为十进制°值的格式。

在工作中可能会遇到需要对大量word文件中的文字内容进行批量替换的情况。相比excel的批量处理，个人感觉word文档中由于包含大量样式信息，批处理时总感觉有顾虑。一者担心影响了文档的格式，误修改了文档的样式，那后果……整过文档的小伙伴都懂的；二者担心批处理不全面，例如公式、表格、图表或者文本框。这里尝试使用VBA进行多文件的内容查找和替换。实现效果基本满意，能完成一般的使用需求。

在汇总数据时，我们有时候会把大量的工作表复制到同一个工作簿中，待全部数据汇总到一个表里之后，原来的大量分表就成了冗余信息，既占用文件存储空间又显得文件凌乱，影响工作体验。例如上一篇我们汇总过的年工作报表。汇总过之后我希望能一键删除全部的分表。

此前介绍了一键批量汇总工作簿和工作表的方法。简单介绍起见，当时汇总工作表的思路是将各个表格中的内容一股脑复制粘贴到当前工作表中。但这样带来的问题是汇总效果不理想，一是汇总表格中会重复出现标题行，二是实际工作中我们未必需要汇总整个表，也许只需要汇总特定的几列数据。现在我们对汇总数据的自定义方法进行优化。

今天遇到一个需求，需要把word文件中“创建内容的时间”这个属性进行修改。这个属性在文件右键“详细信息”中可以看到，但不可修改，点击属性左下角的“删除属性和个人信息”时，其他信息都可以删除，但这个时间无法删除。

今天遇到个问题，需要对大量表格中的“编号”字段对应补充上“名称”信息。已有“编号”与“名称"的对应关系表，"编号"是个具有唯一性的字段。需要处理的大量表格中出现的编号都可以在在对应关系表中找到，姓名与编号是一对一关系。

前面与大家分享了使用VBA批量将Excel数据套模板输出为单独文件的方法（见）和套模板时插入图片的方法（见实用VBA：10.用VBA向Excel文件中自动插入图片）。在此基础上，我们常常希望将套模板输出的文件保存为pdf文件，以免在后续工作流程中excel文件被误修改了内容或格式。

小伙伴们工作中时常遇到处理文本文件的情况。有些业务系统中的数据记录、日志文件、格式化输出的数据等是以txt文本文件的方式记录的。但是在进行数据处理和分析时，如果需要处理大量的文本文件、或对文本文件中特定的字段、数据等进行处理，会显得繁琐而棘手。如果能够导入到excel文件中，就可以发挥Excel进行数据统计分析功能的优势。

看到知乎上一个问题，"怎么用excel自动提取数据生成调拨单？",问题描述是：表1中有多个产品，每个产品都有ABCD仓，A仓为主仓，可以给BCD仓调拨，填写调拨数量后（正为调入，负为调出）怎么自动在表2中生成发生了调拨的产品的明细？

实际工作中，套模板输出的时候常常需要插入图片，例如人员简历中的证件照，工作日志中的现场照片等。如果原始照片大小不一，还需要按比例进行缩放。同样可以使用VBA进行批量处理，而且可以和数据一并处理。

工作中常遇到需要将大量数据填入表格模板，并保存为单独的Excel文件的情况。例如HR部门将掌握的人员基本信息批量输出为统一格式的信息表；学校将汇总的全部成绩数据为每名学生生成格式统一的成绩单；将汇总的工作记录信息生成格式统一的日志报表……诸如此类的情况。例如为下面表格中的人员批量生成个人信息表（套模板）。

前面介绍了通过打开文件的对话框，选择目录进行多文件一键汇总的方法，也介绍了使用VBA提取文件存储路径和文件名的方法。如果大量的表格文件分别存储在分散的不同目录下，前面介绍的汇总的方法就不太好用了。虽然也可以将分布在不同目录下的文件使用批处理命令复制汇总到同一目录下，再用第一个汇总的方法进行文件表格多合一的汇总。但毕竟有些繁琐。在提取文件列表之后，即可按列表逐一打开文件进行复制汇总。

工作中常用Excel处理数据，常常疑惑Excel能够应对的数据量上限是多少？恰巧今天看到知乎有这么一个问题"处理 30 万行 × 20 列的数据 Excel + VBA 是否可以胜任，Access 是否可以胜任，有没有其他合适的软件推荐？"关注者还挺多。结合自己经验，发表一点粗浅看法

工作中经常会遇到需要对大量文件进行检查、整理、筛选、处理的情况。所有操作的前提是先梳理出有多少文件需要处理，文件存储在什么位置，如果文件目录结构比较复杂，手工逐一打开文件夹进行人工检查是繁琐、低效而不可靠的。如果能够将文件存储路径和文件名提取到excel表格中，就可以直观地观察到文件存储的结构特点。

格式化的表格数据汇总，特点是每个表格字段相同、排序一致、数据量不等、文件数量多。就可以使用VBA批量按顺序打开多个文件，分别复制多个文件中的表格到同一个文件中，实现文件的汇总；采用循环的方式，分别复制各个表中有数据的区域，以追加的方式粘贴到同一个表中，即实现了对多个工作表内容的合并。

公司发放奖金，仅在部门内部公示，需要将奖金发放表按部门分隔为若干个分表，分别发给各部门。表格小了还好办，手动选择、复制、粘贴、另存一遍即可解决，如果表格大、部门多、数据未按部门排序的话，手动处理工作量就会很大，通过VBA可以一键完成。

从非格式化的表格、网页、word或其他格式文件中复制到Excel文件中的表格，对上下合并的单元格有时会将单元格内的文本内容保存在最上格中，下面其他单元格为空，需要将很多分散而无规律的非空单元格与其下的空白单元格合并。此处介绍一种快速格式化表格的实用方法。

工作中有时会需要将一个表格的行与行之间各插入一个空白行，即由每行一条数据改为隔一行一条数据（或每条数据占2行）；或根据需要在每行数据后插入数量不等待空白行，以供后续处理填入数据使用。实现方法有很多，此处为了练习VBA，分享一种使用VBA实现的方法和一种快速实现的操作技巧。

工作中有时候需要将无重复的表转换为有重复的表。有很多方法，此处我们探讨使用VBA向下填充空白单元格的方法。

在VBA (Visual Basic for Applications) 中，二维数组和堆栈都是非常常用的数据结构和编程工具。然而，VBA自身并未提供像Java或C++那样的堆栈类。但是，我们可以使用VBA的集合（Collection）或者自定义类模块来实现堆栈的功能。

VBA (Visual Basic for Applications) 是一种在 Microsoft Office 系统中常见的编程语言。您可以在 VBA 中使用二维数组和堆栈，但是请注意，VBA 本身不提供堆栈数据结构。您需要自己实现堆栈，或者使用一些库（例如 VBA 的库中并没有这样的数据结构）。