【1.0】告别手动熬夜:Excel VBA如何将沙特填图路线整理效率提升300%

野外调查回来，照片、素描、产状、蚀变矿物、观测点……一堆表要对着改、对着抄、对着算。用对工具，从「逐行手改」变成「点几下菜单」，效率翻倍不止。本文是一套路线工具集的总体介绍，帮你先看清全貌，再按需点进五篇分工具说明细看。

一、你在被什么折磨？

在沙特地质填图路线整理时，大概率会碰到这些事：

• • 照片表：比例尺代号要写成英文说明、路径按周要更新、角度要转成方位、还要和素描编号对上……
• • 构造表：调整经纬度列顺序、要对照图片内容描述构造要素、如果线理不在面理上，还要做赤平投影微调线理产状、要核对数据一致性，检查后还要清掉标记……
• • 素描表：要从照片表筛出素描、重编号 SK01/SK02、改路径、复制/重命名图片，还要和 CorelDraw 配合出图……
• • 蚀变矿物表：要建好 42 列的大表、经度纬度要挪到观测点后面并统一小数位……
• • 观测点表：要对照前面表照片、素描、构造、蚀变矿物的信息汇总到一张表里，如果有修改还要能同步回源表……

这些事若全靠复制粘贴、手改公式、逐行核对，一条路线就能耗掉一整天时间；多条路线、多周数据质检返回堆在一起，熬夜就成了常态。

核心矛盾：重复规则多、步骤固定，但表格多、列多、关联多，人工做又慢又容易错。

二、一套菜单，六类工具，覆盖整条流水线

在经历两周的野外调查后，我决定用 Excel VBA 做了一套 「路线工具集」：打开工作簿后自动在菜单栏生成 「路线工具集」 主菜单，下面挂六个子菜单，对应六类 shp 表/辅助功能，全部用「点菜单」完成，无需记宏名、无需改代码。

一句话：从「建表 → 照片/构造/素描各自整理 → 观测点汇总与回写」，整条流水线都有对应菜单，按顺序点就能跑通。

三、五张表各自能干啥？（总览）

下面按「表」简单概括每类工具做什么；细节操作、列号、注意事项见对应的五篇分文章。

1. Picture.shp：照片表格一条龙

• • 预处理照片：按文件夹批量处理——根据文件名最后一个比例尺代号（R/C/H/D/P）写英文说明、重命名照片、删无效行、缩短路径、角度转方位、排序等，一键完成。
• • 修改照片路径并格式化经纬度：按「上周六～本周四」自动算日期范围，批量更新路径里的日期段，并把经度纬度格式化为 6 位小数。
• • Picture 插入素描引用：根据 Sketch 表按文件名匹配，把 SK01、SK02 等自动插入 Picture 的 Note 列（句号前或末尾）。
• • 添加比例尺和镜头方向：把 L 列（比例尺+方位）合并进 Note 列，并删除 L 列，只保留一列完整图注。

→ 详见：《1.1-Picture工具集》

2. Structures.shp：列顺序、合并、倾伏角、检查

• • 调整表格顺序（建议第一步）：经度纬度挪到 B 列后（C、D），并格式化为 6 位小数；P、Q 等列归位。只做一次，后面功能都按调好的列来。
• • 添加 Picture 表所有信息：把 Picture 表全部记录追加到 Structures，按 B 列排序，并给原有构造行按类型上色（便于描述），新加行打标记。
• • 清除 Picture 对应项：只删「从 Picture 加进来」的行，保留原始构造数据，并清掉颜色和标记列。
• • 根据倾伏向计算在面上的倾伏角：根据面理倾角、倾向、以及线理倾伏向，利用空间关系计算线理倾伏角，并写入倾伏角（两位数字）此功能等同于在赤平投影大圆微调线理产状。
• • Structures 表检查 / 清理检查内容：集成项目部提供的检查功能，增加了清理功能，清理检查内容。

→ 详见：《1.2-Structure工具集》

3. Sketch.shp：建表、自动生成、对接 CorelDraw

• • 使用说明：弹窗查看 Sketch 使用说明（必读）。
• • 生成 Sketch.shp 工作表：在当前工作簿最后新建一张 Sketch.shp，表头、格式、冻结首行设好。
• • Sketch 内容自动生成：从 Picture 复制数据到 Sketch，只保留「路径对应照片为 S 开头」的行；重编号为 SK01、SK02…，改路径为 Sketch 文件夹；可选复制/重命名 S 开头图片。
• • 生成产状列用于自动素描：为 CorelDraw 自动绘制素描准备产状等数据。
• • 请打开 CorelDraw 完成素描或信手剖面：弹窗引导在 CorelDraw 中完成后续出图。
• • 删除辅助列：在 CorelDraw 素描和 Picture 插入素描引用都完成后，删除辅助列。

→ 详见：《1.3-Sketch工具集》

4. Alt_mineral.shp：蚀变矿物表建表与列序

• • 生成 Alt_mineral.shp 工作表：在工作簿最后新建 Alt_mineral.shp，42 列表头（观测点、蚀变、矿物、矿点、经度纬度等）一次性写好，每周路线必须提交该表，无论是否有蚀变矿物。
• • 调整表格顺序：把经度、纬度（原 AO、AP 列）移到 B 列后变为 C、D 列，并格式化为 6 位小数，顺带删除空白列。只做一次。

→ 详见：《1.4-Alt_mineral工具集》

5. Point_observation.shp：三表汇总与双向同步

• • 添加 Picture 和 Structures 和 Sketch 表信息：把三张表的数据全部追加到 Point 表，经纬度 6 位小数、按 ObsPtID 列排序、交替填色。
• • 更新 PictureSketchStructures 表：以 Point 为准——在 Point 里删掉的行，从三张源表对应删除；在 Point 里改过的内容，写回对应源表的对应列，核心工具。
• • 清除 Picture 和 Structures 和 Sketch 对应项：只删 Point 里「从三张表加进来」的行，清掉填充色；不碰三张源表。

→ 详见：《1.5-Point_observation工具集》

四、典型使用顺序（心里有张流程图）

不必死记，但建议形成习惯顺序，避免重复追加、列错位：

1. 1. Structures / Alt_mineral：需要时先调整表格顺序（各只做一次）。
2. 2. Picture：预处理照片 → 路径日期更新与经纬度格式化（按周）→ 后续再插入素描引用、添加比例尺和镜头方向。
3. 3. Sketch：建表 → 自动生成 Sketch 内容 → 产状列 → CorelDraw 出图 → Picture 插入素描引用 → 删除辅助列。
4. 4. Structures：按需「添加 Picture 表所有信息」→ 倾伏角计算 → 表检查与清理。
5. 5. Point_observation：添加三表信息 → 在 Point 里统一查看、修改 → 需要时更新三张源表；若只想保留 Point 原始数据则清除对应项。

这样一条路线从「原始表」到「可交的图册与观测点汇总」，都能在菜单里按步骤点完，减少反复试错和熬夜返工。

五、效率提升从哪来？——300% 怎么理解

• • 重复劳动交给工具：比例尺代号→英文、角度→方位、路径按周更新、多表追加与排序、倾伏角公式、列移动与格式化，都是「规则固定、数据量大」的步骤，人做一遍慢、做多遍更慢；工具跑一遍几秒到几十秒，且不疲劳、不出计算错。
• • 关联操作一次做完：例如「Picture + Sketch」的匹配与 SK 代码插入、「Point 与三表」的汇总与回写，若手工会涉及多表切换、复制粘贴、对行号；工具自动完成映射，避免对错行、漏改表。
• • 可重复、可逆（在备份前提下）：关键步骤前提示备份；清除、删除类功能说明清楚「只删从某表加来的」或「只动 Point」，让你在试错和回滚时心里有数。

「300%」是一个形象说法：原来要熬夜才能整理完一条路线的多张表，现在用菜单按顺序点几轮，能在明显更短时间内完成同一套流程，把时间省下来做检查、做解释，做地质问题研究，而不是耗在重复操作上。

六、使用前记住三件事

1. 1. 环境：本工具为 Excel 加载项（.xlam），安装加载项并启用宏后，任意工作簿打开时都会出现「路线工具集」菜单，无需把数据工作簿存成带宏格式（加载项里的 Auto_Open / Workbook_Open会创建自定义菜单）。
2. 2. 备份：凡涉及「删除行」「覆盖列」「清空表」「更新源表」的，操作前备份工作簿（和照片文件夹），避免误操作无法恢复。
3. 3. 先看说明再点：每个子菜单里都有「使用说明」或对应说明文档；列号、只做一次的限制、表名要求等，在五篇分工具说明里写得很细，先扫一眼再跑全量数据，更稳。

七、接下来怎么读？

• • 想先搞清全貌：你已经读完了这篇总文章。
• • 想按表实操：按上面表格打开对应分篇——
• •1.1-Picture工具集
• • 1.2-Structures工具集
• • 1.3-Sketch工具集
• • 1.4-Alt_mineral工具集
• • 1.5-Point_observation工具集每篇里有：这个表能干啥、先决条件、点哪个菜单/宏、注意事项和常见问题。
• • 有问题：如有问题或需要定制可联系本人。

本系列工具为 Excel VBA 宏，需在支持宏的 Excel 环境中使用。