《2013职称计算机Ecel2003专项辅导资料1》由会员分享，可在线阅读，更多相关《2013职称计算机Ecel2003专项辅导资料1（3页珍藏版）》请在金锄头文库上搜索。
1、2013职称计算机Excel2003专项辅导资料1用公式批量提取数据信息假设在一个Excel工作簿中有N个企业基本情况登记 表，不同工作表中分别保存了各个企业的基本情况数据，工 作表格式都一致， 名称分别为 Sheetl、Sheet2直到SheetN。 Sheetl表中企业基本情况表，从该表中可以看到，企业名称、 负责人姓名和联系电话等数据分散在B2、B4及G4单元格中。如何提取各表中企业名称、负责人姓名和联系电话等内容， 并将提取的内容制成表格？一、新建工作表在工作簿中插入一个新工作表，并将该工作表命名为“通讯录”，合并 A1 D1单元格，在合并后的单元格中输 入“全市建筑企业负责人联系电话
2、”。分别在A2、B2、C2、D2单元格中输入“序号”、“企业名称”、“负责人”、“联 系电话”等字段。二、输入公式在序号列中填充序号，在 B3单元格中输入公式：“=INDIRECT(“Sheet” &ROW2& !$B$2”)”。公式中INDIRECT函数返回由文字串指定的引用。ROV返回所在单元 格的行号，” Sheet” &R0W2& !$B$2”为要引用的单元格， 该公式含义为返回 Sheetl表中B2单元格的值。同样道理在 C3及D3单元格中分别输入“INDIRECT(“Sheet” &R0W2&” ！$B$4”)”、“INDIRECT(“Sheet” &R0W2&” ！$G$4”)”
3、。上述公式中 单元格引用要使用绝对引用，否则会导致错误的结果。公式 输入完成后，选中 A3:D3单元格区域，将鼠标指向 D3单元 格右下角的填充柄，将公式向下拖动复制到相应数据区域。 这样，一份精致的表格就呈现在你面前了。三、批量命名工作表如果各工作表名称无规律，如“一建公司表”、“路 桥公司表”等，使用公式前还需将所有表名称统一为默认的 表名，当然表数量不多，用手工命名也可以，如果工作表数 量很多，批量命名则要使用 VBA代码了。具体实现方法如下： 执行“工具-宏-Visul Basic编辑器”命令或按下Alt+F11组合键，在 Visul Basic 编辑器中选择“插入添 加模块”，在代码窗口输入以下代码：Sub工作表命名Dim Sh As WorksheetFor Each Sh In WorksheetsSh.Name = Sh.CodeNameNextEnd Sub输入完成后，关闭VBA窗口，返回到工作表编辑窗口， 在Excel文档中执行宏即可。将工作表名称统一后，再按照 步骤一和二介绍的方法，提取表格中的数据。
