《Excel报表自动化：一键发送邮件给不同部门》.docxVIP

《Excel报表自动化：一键发送邮件给不同部门》

完整操作手册与VBA开源代码

一、准备部门列表与接收人地址

1.1建立部门配置表工作表

在Excel中新建独立工作表，命名为部门配置。这是整个自动化流程的控制中心，所有发送规则均从此表读取。

标准表结构：

行

A

B

C

D

E

F

G

1

部门名称

负责人

邮箱地址

报表类型

数据筛选条件

固定附件

发送状态

2

销售部

张三

zhangsan@

月度业绩

销售部

\server\公共\制度.pdf

待发送

3

财务部

李四

lisi@

费用报表

财务部

\server\公共\制度.pdf

待发送

4

运营部

王五

wangwu@

运营日报

运营部

\server\公共\制度.pdf

待发送

1.2邮箱格式验证（数据验证+条件格式）

操作步骤：

选中C列（邮箱地址）

【数据】→【数据验证】→【自定义】

输入公式：

=AND(ISNUMBER(SEARCH(@,C2)),ISNUMBER(SEARCH(.,C2)),LEN(C2)5)

错误警告标题：邮箱格式错误，内容：请输入有效的电子邮件地址

条件格式高亮无效邮箱：

选中C列

【条件格式】→【新建规则】→【使用公式】

公式：

=NOT(AND(ISNUMBER(SEARCH(@,C2)),ISNUMBER(SEARCH(.,C2))))

格式：红色填充

1.3部门名称与数据源