Excel制表技巧批量制作.docx

《Excel制表技巧批量制作.docx》由会员分享，可在线阅读，更多相关《Excel制表技巧批量制作.docx（14页珍藏版）》请在三一办公上搜索。

1、Excel制表技巧(13 )批量制作批量制作利息催收通知单在银行信贷部门的日常工作中，经常要利用会计部门提供的贷款欠息情况表，向每个贷 款欠息户发放贷款利息催收通知单催收利息。由于贷款欠息户数量较多，采用常规的逐户编 辑打印利息催收通知单的方法势必耗费大量的工作时间，经过一段时间的摸索，通过对 EXCEL 2000和WORD 2000灵活运用，找到了一条快速、准确完成大批量制作贷款利息 催收通知单工作的捷径。现将制作过程介绍如下，供有类似要求的读者朋友参考。一、利用EXCEL 2000实现利息小写金额向中文大写金额的转换1、数据导入。运行EXCEL 2000，点击工具栏上“打开文件”按钮，找到

2、会计部门提供 的贷款欠息情况表文件后，点击“打开”，EXCEL 2000自动弹出“文本导入向导”3步骤之1：如设置无误，点击“下一步”按钮，进入“文本导入向导”3步骤之2,在这里你可以选择合 适的分隔符号，在预览窗中可预览分列效果，满意后点击“下一步”按钮，进入“文本导入向导”3 步骤之3,在这里你可以对每列数据格式进行简单设置(当然可以在EXCEL 2000中进行高 级设置)，如果我们不是导入全部数据列，还可以选择不导入某列，当所有设置完成后，点 击“完成”按钮，将数据导入EXCEL 2000中，并将文件另存为EXCEL文件格式(本文设存 盘文件名为“应交利息.XLS)。2、格式转换。由于在

3、EXCEL 2000中系统提供的中文大写数字格式与我们日常使用的中文 大写金额格式相差较远，如小写金额“138.59元在EXCEL 2000中只能转换成“壹佰叁拾捌. 伍玖”，因此我们必须想办法实现正确的格式转换。经过实验，发现通过设置中间字段，利 用IF判断函数、TRUNC截尾取整函数及TEXT函数可以很好地解决这个问题。1) 、打开应交利息.XLS”文件，在D1至G1单元格按顺序增加“元位”、“角位”、“分位”、 “应交利息(大写)”四个字段。2) 、为了能将“应交利息”C列中小写金额转换成中文大写金额，我们需将小写金额按“元 位”、“角位”、“分位”进行分解转换，并在相应位置添加元”、“

4、角”、“分”符号，以备将来合并 之用。具体分解通过下列公式实现：D2=IF(TRUNC(C2)=0,TEXT(TRUNC(C2),DBNum2G通用格式)&元)中国15:43:04|m|m|HE2=IF(TRUNC(C2*10)-TRUNC(C2*10,-1)=0,TEXT(TRUNC(C2*10)-TRUNC(C2 *10,-1),DBNum2G/通用格式)&角)F2=IF(TRUNC(C2*100)-TRUNC(C2*100,-1)=0,TEXT(TRUNC(C2*100)- TRUNC(C2*100,-1),DBNum2G/通用 格式)&分)在 G2 单元格使用公 G2=IF(AND(D

5、2,F2,E2=),D2&零&F2,IF(AND(D2, E2=,F2=),D2&整 ,D2&E2&F2)通过对元、角、分位是否为零的判断，将元、角、分按 照中文大写金额的书写规律进行合并，得到所需规范的中文大写金额。使用自动填充柄功能将D3至G11单元格公式设置好，得到如下效果图。至此我们完成了应收利息由小写金额向大写金额的转换工作，将文件存盘后退出，进 入一步工作二、利用WORD 2000实现快速批量打印利息催收通知单为了实现快速批量打印利息催收通知单，我们必须利用WORD 2000中的邮件合并功 能来帮助完成工作。1、建立文档。启动WORD 2000新建一空白文档，按规定格式编辑好利息催

6、收通知单 中的固定内容，设置好页面格式。2、邮件合并。选择工具菜单中“邮件合并”选项，进入“邮件合并帮助器”窗口；点击“主文档”中“创建”下拉菜单中的“分类”按钮，在弹出窗口中选择“活动窗口”；然后点 击“数据源”中“获取数据”下拉菜单中的“打开数据源”按钮，弹出“打开数据源”窗口，找到刚才 我们在EXCEL 2000中保存的“应交利息.XLS”文件，点击“打开”；在随后弹出的窗口中点击“确定”，在接着弹出的窗口中点击“编辑主文档”按钮来进行给 主文件添加合并域的工作。将光标移至需要添加合并域的位置，点击“插入合并域”按钮，从下拉列表中选择需要插入的 合并域；重复这一步骤，在所有需要插入合并域

7、的地方插入相应的合并域。然后点击工具栏 上“查看合并数据”按钮进行检查核对。检查无误后，即可进行批量打印利息催收通知单。点击工具栏上合并选项”按钮，弹出 “合并”窗口，在“合并到”下拉列表中选择“打印机”，开启打印机后，点击确定”按钮，直接将 合并的每一份利息催收通知单输出到打印机。用Excel批量计算年龄一位做保险业务的朋友接到一笔团队大订单，有近千条记录。她花了半天的时间用Word 录入了客户的档案后，根据要求需要补充填写每个客户的年龄。如果一个个用笔算，又是需 要花上大半天的时间，还好客户档案中有每个人的身份证号，于是我用Excel很快帮她计算 出了每位客户的年龄。1.首先把Word中的

8、客户档案全部复制到Excel中生成一个数据库文件。然后在数据库 文件中新建一列，并命名为出生年月”。因为身份证号有15位和18位，为了计算方便，先 对身份证号进行排序。2.用MID函数计算出第一个客户的出生年月。函数表达方式如下：MID（E2, 7, 2）， 表示第一个客户的身份证号在E列第二行中，要从这个位置中的第7个文本始返回2个长 度的字符。回车确认后，“J2”中的值变为“62”，表示该职工62年出生。接着下拉J2公式复制单元格， 快速求出每个职工的出生年月（若身份证为18位，则公式变为MID（E2, 9, 2）再把J 列的格式改为数值型。3.在D2中输入计算机公式“=103-J2”就可

9、求出该职工的实际年龄。下拉D2中的公式再次复制，近千个职工的年龄就一键敲定。小编注：以上的方法中的出生年月只有在2000年以前才有效，如果客户中有2000年以 后出生的人，则计算时还要做些变通。Excel自动求和”批处理功能在表格中，许多时候大家需要对行或列进行求和运算，如果同时有多行或多列需要求和， 该怎样实现求和运算的简化操作呢？以下，我们以图1所示表格为例，使用最为常见的软 件，为大家讲解如何实现“自动求和”的批处理。、瑚绩 姓名语文张三李四90王五100总成绩.幻、工作表选中图1所示表格中“总成绩”下的3个单元格，然后单击常用工具栏中的“自动求和”按 钮。怎么样，Excel准确判断并计

10、算出三人的总成绩了，够智能吧！二、wps表格下面以“金山文字2003”为例说明操作过程：1. 用鼠标单击表格使其处于编辑状态。2. 在表格中选定多个连续的单元格，即矩形区域。对图1所示表格而言，请选中表格“语 文”、“数学”和“总成绩”下面的9个单元格。3. 按鼠标右键，在右键菜单中，指向“单元格计算”，然后单击“横向求和”由以上操作我们可以看出，wps表间计算与Excel的不同之处是选择的单元格区域的不 同，大家可一定得注意。三、word表格与Excel、wps相比，word的计算功能最弱，没有提供批量求和的功能，但以下的操 作仍能够减轻大家的工作量：1. 单击“总成绩”下的第一个单元格，然

11、后在表格”菜单中，单击“公式”，弹出“公式”对话 框。如果“公式”下的框中出现的不是“=SUM(LEFT)”，请将其中内容改为=SUM(LEFT)”(如 图3)，单击“确定”按钮，则计算结果即“167”出现在“总成绩”下的第一个单元格。2. 选中“张三”的“总成绩”即“167”，单击常用工具栏上的“复制”按钮。3. 单击“总成绩”下的第二个单元格，再单击常用工具栏上的“粘贴”按钮，把求总成绩公 式复制到该单元格。同理，也把公式复制到“总成绩”下的第三个单元格。4. 选中“总成绩”下的所有单元格，按下F9键。实际上，word是通过“域”功能实现数值运算的，“域”不能够根据变化的数值自动计算， 只

12、有选中“域”后，按下F9键方可重新计算。愿笔者所述对你能够有所启发和帮助。用公式批量提取数据信息假设在一个Excel工作簿中有N个企业基本情况登记表，不同工作表中分别保存了各 个企业的基本情况数据，工作表格式都一致，名称分别为Sheetl、Sheet2直到SheetN。 图1为Sheetl表中企业基本情况表，从该表中可以看到，企业名称、负责人姓名和联系电 话等数据分散在B2、B4及G4单元格中。如何提取各表中企业名称、负责人姓名和联系电 话等内容，并将提取的内容制成如图2所示的表格呢？AB dDEFG1企业基本情况登记表时企业名称市一建公司成立肘间19兀1年3月3专业类别土建资质等级批准时间如

13、口年B月4负责人利一技术职称工程师联系电活23456785 .技术负责丁 一技术职称高缄工程师联系电话2333335&荻奖工程一览7序号工程名称.获奖时间荻奖内容AD1全市建筑企业负责人联系电活.2序号企业名称负责人联系电话31 ；市一建公司；刘_234567842市二建公司弗三5.专市工程建监理公司王武23456706市路桥公司电前2356899一、新建工作表在工作簿中插入一个新工作表，并将该工作表命名为“通讯录”，合并A1-D1单元格， 在合并后的单元格中输入“全市建筑企业负责人联系电话”。分别在A2、B2、C2、D2单元 格中输入“序号”、“企业名称”、“负责人”、“联系电话”等字段。二

14、、输入公式在序号列中填充如图2所示的序号，在B3单元格中输入公式：“=INDIRECT(Sheet&ROW()-2&!$B$2)”。公式中 INDIRECT 函数返回由文字串指定的 引用。ROW()返回所在单元格的行号，Sheet&ROW()-2&!$B$2为要引用的单元格，该 公式含义为返回Sheet1表中B2单元格的值。同样道理在C3及D3单元格中分别输入 “=INDIRECT(Sheet&ROW()-2&!$B$4)、=INDIRECT(Sheet&ROW()-2&!$G$4)。 上述公式中单元格引用要使用绝对引用，否则会导致错误的结果。公式输入完成后，选中 A3:D3单元格区域，将鼠标

15、指向D3单元格右下角的填充柄，将公式向下拖动复制到相应数 据区域。这样，一份精致的表格就呈现在你面前了。三、批量命名工作表如果各工作表名称无规律，如“一建公司表”、“路桥公司表”等，使用公式前还需将所有 表名称统一为默认的表名，当然表数量不多，用手工命名也可以，如果工作表数量很多，批 量命名则要使用VBA代码了。具体实现方法如下：执行“工具一宏一Visul Basic编辑器”命 令或按下Alt+F11组合键，在Visul Basic编辑器中选择“插入一添加模块”（图3），在代码 窗口输入以下代码：Sub工作表命名（）Dim Sh As WorksheetFor Each Sh In Works

16、heetsSh.Name = Sh.CodeNameNextEnd Sub输入完成后，关闭VBA窗口，返回到工作表编辑窗口，在Excel文档中执行宏即可。 将工作表名称统一后，再按照步骤一和二介绍的方法，提取表格中的数据。怎么样，是不是 很简单？批量修改数据比如我们做好一个Excel表格，填好了数据，现在想修改其中的一列（行），例如：想 在A列原来的数据的基础上加8,有没有这样的公式？是不是非得手工的一个一个数据地住 上加？对于这个问题我们自然想到了利用公式，当你利用工式输入A1=A1+8时，你会得到 Excel的一个警告：“MICROSOFT Excel不能计算该公式.”只有我们自己想办法了

17、， 这里介绍一种简单的方法：第一步：在想要修改的列（假设为A列）的旁边，插入一个临时的新列（为B歹U），并在B列的第一个单元格（B1）里输入8。第二步：把鼠标放在B1的或下角，待其变成十字形后住下拉直到所需的数据长度，此时B列所 有的数据都为8。第二步：在B列上单击鼠标右键，“复制” B列。第四步：在A列单击鼠标的右键，在弹出的对话框中单击“选择性粘贴”，在弹出的对话框中选择 “运算”中的你所需要的运算符，在此我们选择“加”，这是本方法的关键所在。第五步：将B列删除。怎么样？ A列中的每个数据是不是都加上了8呢？同样的办法可以实现对一列（行）的 乘，除，减等其它的运算操作。原表格的格式也没有改

18、变。此时整个工作结束，使用熟练后，将花费不到十秒钟。Excel批量修改标准化试卷笔者从事信息技术教学多年，每次都为考试后的批卷感到头痛。虽然采用标准化试题， 但近300名学生的试卷，一份份地改完，要花费大量的时间。为提高自己的工作效率和阅 卷的准确率，笔者利用Excel强大的统计和判断功能，制作了一个电子答题卡，来实现自动 的快速阅卷。1. 考前准备工作本校微机教室有学生机96台，微机考试分为上机考试和理论考试，理论考试共计60道 选择题（每题1分，占60%）。理论考试的试题要事先存放在教师机上，共计四套试卷， 每批考试的试卷是随机抽取的（此方法也适用于其他课程的标准化考试）。在教师机上抽取

19、试卷后，通过多媒体网络教学软件一次性将该文件（假设该文件名为ABC”）发送到所有学 生机的指定目录下。随后，再将事先用Excel制作好的“答题卡”（即与所抽取的试题相对应 的一个Excel文件），也发送到每台学生机的指定目录下。发给每位考生一张带有考题序列号的白纸，学生打开文件“ABC”后，即可看到考题的内容， 学生把每题的答案先填到发的白纸上，做完试题后，学生再打开本机上的答题卡”文件，将 白纸上写好的答案填入“答题卡”上对应题号的后面即可。2. 制作电子答题卡（1）在Excel下的Sheetl工作表中输入1到10题的序列号（以前10题为例），如图 1所示。图1序列号（2）打开Sheet2工

20、作表，在“题号”下面也同样输入前10题的序列号，然后把正确答案 填入所对应的题号后面，如图2所示。图2填入正确答案（4）在Sheet2工作表的D2单元格内输入公式“=COUNTIF（C2:C11,T）”，用来统计 C2到C11单元格内所有T的个数，也就是该学生的分数。只要学生在Sheetl工作表中填 上所选的答案后，在Sheet2工作表中的D2单元格内就会马上显示出分数。（5）学生打开“答题卡”文件时，Sheet2工作表是绝对不能让学生看到的。其方法很简单: 首先同时选中A到D列，然后依次选择菜单“格式/列/隐藏”。为了防止学生取消隐藏，还需 要对Sheet2工作表进行保护设置：单击菜单中的工

21、具”项，选择“保护”下面的“保护工作表” 项，在随后弹出的对话中根据提示输入密码即可。这样学生在不知道密码的情况下不可能看 到Sheet2所隐藏的内容。（6）以上工作完成后，将该文件命名为答题卡”并保存。考试时教师通过教师机将“答案 卡”文件发送到每台学生机上，学生打开该文件并答完题后，单击“文件”下的“另存为”命令， 然后以自己的姓名来命名。最后由教师通过多媒体网络教学软件统一将其将收集到教师机 中。（7）教师批改时，只需打开以学生自己姓名命名的这些文件，选中Sheet2工作表，单 击菜单“工具/保护/撤销工作表保护”命令，输入密码，然后再取消所隐藏的列，即可看到该 学生的分数（从打开文件到

22、看到分数20秒内即可完成）。只计算Excel公式的一部分在Excel中当我们调试一个复杂的公式时可能需要知道公式某一部分的值，可以用以 下的办法来获得：双击含有公式的单元格，选定公式中需要获得值的那部分公式，按F9” 键，Excel就会将被选定的部分替换成计算的结果，按Ctrl+Z”可以恢复刚才的替换。如果 选定的是整个公式的话，就可以看到最后的结果。例如，有这样一条公式：（A1*B1+C1）/D1,选定公式中的A1*B1 （假设A1和B1的值分 别为12和8）,按“F9”键，Excel就会将A1*B1这部分转换为96。这时，公式就变成了 （96+C1）/D1。如果继续选定D1 （假设D1的值

23、为6），并按F9”键，Excel会将公式转换为 （A1*B1+C1）/6。当你完成了公式的计算部分，想恢复成原来的公式，按“Esc”即可。在Excel中当我们调试一个复杂的公式时可能需要知道公式某一部分的值，可以用以下的办 法来获得：双击含有公式的单元格，选定公式中需要获得值的那部分公式，按“F9”键，Excel 就会将被选定的部分替换成计算的结果，按“Ctrl+Z ”可以恢复刚才的替换。如果选定的是整 个公式的话，就可以看到最后的结果。例如，有这样一条公式：（A1*B1+C1）/D1,选定公式中的A1*B1 （假设A1和B1的值分 别为12和8），按“F9”键，Excel就会将A1*B1这部

24、分转换为96。这时，公式就变成了 （96+C1）/D1。如果继续选定D1 （假设D1的值为6），并按“F9”键，Excel会将公式转换为 （A1*B1+C1）/6。当你完成了公式的计算部分，想恢复成原来的公式，按“Esc”即可。将Excel的文本数字转换成数字在Excel中，系统将前面带有半角单引号的数字视为文本对待，而且为了某些需要， 用户可以通过“格式”菜单中的“单元格”命令，将数字设置为文本格式。然而，现在我们却需 要把工作表中文本格式的数字转换成数字，那么以下方法可以一试。1. 一次转换一个单元格在“工具”菜单上，单击“选项”，再单击“错误检查”选项卡（一定要确保选中了“允许后台错 误

25、检查”和“数字以文本形式存储”复选框）。选中任何在左上角有绿色错误指示符的单元格。 在单元格旁边，单击出现的按钮，再单击“转换为数字”。2. 一次转换整个区域在某空白单元格中，输入数字“1”。选中该单元格，并在“编辑”菜单上单击“复制”命令。选 取需转换的存储为文本数字的单元格区域。在“编辑”菜单上，单击“选择性粘贴”。在“运算” 下，单击“乘”。单击“确定”按钮。3. 处理特殊财务数字一些财务程序显示负值时在该值右边带有负号“-”。要将此文本字符串转换为数值，必须 返回除最右边字符（即负号）以外的所有文本字符串字符，然后乘以-T。例如，如果单元 格A2中的值为“156-”，那么公式=LEFT

26、（A2,LEN（A2）-1）*-1”将文本转换为数值“-156”，然后 用上面的方法操作。批量删除OfficeExcel空行我们在利用Excel统计与分析对象时，数据的录入工作不可能一蹴而就，记录的添加、 删除、剪切、合并是少不了的，在经过多次的编辑修改过程之后，在表格中往往会出现许多 的空行。这些空行的存在既不美观，同时也影响了数据分析的结果，通常情况下要将其删除。 如果表格中的空行较少，那么只需一行一行地删除，但是如果工作表很大（比如数千行）， 而表格中的空行又许多，手动一行一行删除，无疑会耗费许多的时力。如果大家经常遇到这 样的烦恼，不妨试试下面这些方法，可以快速、干净、批量将有名无实的

27、空行清理出局。“定位”法表格编辑完毕，当需要批理删除其中的空行时，依次点击菜单栏的编辑/定位”，在弹出 的“定位”对话框中单击“定位条件”按钮。在接着弹出的定位条件”对话框中点选“空值”单选按 项（如图1），单击“确定”按钮。好了，现在再看一下，表格中所有的空行是不是已经被全 部选中了，呈蓝色显示。点击菜单栏中的“编辑/删除”看看，表格中的空行已经消失的无影无 踪了。图1小提示：使用该方法删除时要确保其他非空行中的所有单元格内均填有数值，否则非空 行中的空值单元格也会被删除，直接导致表格格式完全混乱。“筛选”法如果表格中有些项是没有填入的，那么要删除空行就必须使用“筛选”功能先将表格所有的 空

28、行筛选出来，然后再删除。第一步：首先将鼠标定位到工作表的顶部，然后在表中插入一个新的空行。再在工作表 的最左侧插入一个新的空列，在第一个单无格中输入T，然后拖动自动填充柄，将此列填 充上一个序列。这样做主要是为下步的筛选做准备，由于Excel在筛选时只能识别连续的行， 遇到空行时则不会继续向下进行筛选，所以在进行筛选操作之前，我们在表格中的最左端插 入一列，在该列中填充一个简单的序列让表格连续起来。第二步：接下来，按下“Ctrl+A”键，选择整个工作表。依次点击菜单栏的“数据/筛选/自动 筛选”命令。第三步：这时，在每一列的顶部，都会出现一个下拉列表框，任选一列，点击其下拉列 表框，从中选择“

29、空白”。如果页面内还有数据行，那么，再另选一列，从其下拉列表框中选 择“空白”，直到页面内已看不到数据为止（如图2）。图2第四步：好了，此时页面中剩下的就全部是空白行了，全选后单击“编辑”菜单，选择“删 除行”命令就可以了。第五步：这时所有的空行都已被删去，再单击“数据/筛选/自动筛选”命令，工作表中的数 据就全恢复了，最后将左侧插入的一列删除即可。小提示：之所以在操作之初要插入一个空行，一是为了避免删除第一行数据。二是当工 作表有标题行时，只有这样选择“自动筛选”命令后才会出现下拉列表框。Excel的“批处理”功能对于在办公室工作的同志来讲，日常工作多是搜集、整理、计算数据，并将其结果直 观

30、图形化并附以文字说明，微软公司的Excel可以称得上是帮助我们处理这方面事务 的“专家里手”。笔者在工作实践中总结出多项Excel的“批处理”功能，简单 实用，可以成倍提高工作效率。1、工作簿的“批处理”（1）打开多个工作簿：在“文件”菜单中选择“打开 文件”，按住“Shift”键或“Ctrl”键并配以鼠标操作，在弹出的对话框 文件列表中选择彼此相邻或不相邻的多个工作簿，然后按“确定”按钮，就可以 一次打开多个工作簿。（2）关闭所有打开工作簿而不退出Excel：按下“Shift” 键并在“文件”菜单中选择“关闭所有文件”，如无修改则工作簿被立即关闭； 如果有未保存的修改，系统询问是否要保存修改

31、。2、工作表的“批处理” Shift”键或“Ctrl”键并配以鼠标操作，在工作簿 底部选择多个彼此相邻或不相邻的工作表标签，然后就可以对其实行多方面的批 量处理，笔者仅举几例进行说明。（1）在选中的工作表标签上按右键弹出快捷菜 单，进行插入和删除多个工作表的操作。（2）在“文件”菜单中选择“页面设 置”，将选中的多个工作表设成相同的页面模式。（3）通过“编辑”菜单中 的有关选项，在多个工作表范围内进行查找、替换、定位操作。（4）通过“格式” 菜单中的有关选项，将选中的多个工作表的行、列、单元格设成相同的样式以及 进行一次性全部隐藏操作。（5）在“工具”菜单中选择“选项”，在弹出的 菜单中选择“

32、视窗”和“编辑”按钮，将选中的工作表设成相同的视窗样式和单 元格编辑属性。（6）选中上述工作表集合中任何一个工作表，并在其上完成我们 所需要的表格，则其它工作表在相同的位置也同时生成了格式完全相同的表格。3、单元格的“批处理”（1）“批量”调整列宽或行高Ctrl”键并配合鼠标左键单点或按下左键并 拖动的操作，选中整列，并将鼠标移至选中的区域内任何一列的列标号处，当鼠 标变成十字形时，按下左键并拖动，则将选中所有列的宽度调成相同尺寸，而此 时双击右键，则将选中的所有列的宽度调成最合适的尺寸。行的操作与上述列的 操作基本相同。（2）“批量”设定格式Ctrl”键并配合鼠标左键单击或按下左键并拖动的

33、操作选择不连续单元格，或者通过按下鼠标左键并拖动选择连续单元格，将鼠标 移至选中的任何区域内，单击左键弹出快捷菜单，选择其中的“单元格格式”一项进行“批量”设定单元格格式，或者利用“格式”工具条上的图标 进行格式设定。（3）“批量”输入Ctrl”键并配合鼠标左键单点或按下左键并拖动的操作， 选中所有要输入相同内容的单元格式，然后键入要输入内容，按下“Ctrl”键之 后按“Enter”键，即可完成操作。（4）“批量”求和Excel上工作时，对数字求和是经常遇到的操作，除传统 的输入求和公式并复制外，对于连续区域求和可以采取如下方法：假定求和的连 续区域为mXn的矩阵型，并且此区域的右边一列和下面

34、一行为空白，用鼠标将 此区域选中并包含其右边一列或下面一行，也可以同时两者均选中，单击“常 用”工具条上的“Z”图标，则在选中区域的右边一列或下面一行自动生成了求 和公式，并且系统能自动识别选中区域中的非数值型单元格，求和公式不会产生 错误。直接用通讯录Excel群发电子邮件笔者都是使用记有好友Email地址的Excel文件自动给亲友发送电子邮件， 这种方法不仅方便快捷，而且这些邮件的收件人、主题、内容、附件都不相同。一、建立亲友通讯录在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。二、使用宏实现自动发送电子邮件打开“工具f宏-Visual Basic编辑器”，单击“插入模块”

35、插入一个 模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏:Sub全自动发送邮件()要能正确发送并需要对Microseft Outlook进行有效配置On Error Resume NextDim rowCount, endRowNoDim objOutlook As New Outlook.ApplicationDim objMail As MailItem取得当前工作表与Cells(1,1)相连的数据区行数endRowNo = Cells(1, 1).CurrentRegion.Rows.Count创建objOutlook为Outlook应用程序对象Set objOut

36、look = New Outlook.Application开始循环发送电子邮件For rowCount = 2 To endRowNo创建objMail为一个邮件对象Set objMail = objOutlook.CreateItem(olMailItem)With objMail设置收件人地址(从通讯录表的“E-mail地址”字段中获得).To = Cells(rowCount, 2)设置邮件主题.Subject二新年好！来自朋友弗人的问候设置邮件内容(从通讯录表的“内容”字段中获得).Body = Cells(rowCount, 3)设置附件(从通讯录表的“附件”字段中获得).Attachments.Add Cells(rowCount, 4)自动发送邮件.SendEnd With销毁objMail对象Set objMail = NothingNext销毁objOutlook对象Set objOutlook = Nothing所有电子邮件发送完成时提示MsgBox rowCount-1 & 个朋友的问候信发送成功！End Sub以上代码在Excel 2000中执行通过，并且对“通讯录”和“全自动发送邮 件”宏代码稍作修改就可以完成任何形式的大量邮件的发送。来自：