利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表”解读.doc

利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表” 联系人：杨先生 电话电子邮箱：yjjp67@163.com 以房地产销售数据为例。 两个销售中心以Excel记录销售活动，原始数据和直接使用公式形成的表格模板如下。黄色标题名称为公式项，根据已知数据自动计算。 原始数据收集表 产品表：所有房屋产品，主房、辅房（储藏室、车库、车位等）的基本信息； 标题名称 含义 房行 =ROW(主房[@])-ROW(主房[#标题])，动态的数据行号 买受人 =IFERROR(INDEX(销售[买受人],[@售行]),)，当前买受人 项目 销售项目名称 分区 分区名称 分期 分期名称 楼 数字楼号 单 数字单元号 层 数字楼层 房 数字方位编号 面积 预售面积 预售价 预售价格 产权 产权面积 售次 =COUNTIFS(销售[主房索引],[@主房索引])，当前的销售次数，退房、换房不删除数据，所以用售次区别 售行 对应的销售数据行。 房号 =VALUE([@单]TEXT([@层],00)TEXT([@房],00))，如1单元1层东户表示为1-0101（数字的自定义格式） 主房索引 =INDEX(项目分区[代码],MATCH([@项目][@分区],项目分区[分区名称],0))[@分期]TEXT([@楼],00)TEXT([@房号],00000)，用于表间互查数据 销售索引 =IFERROR([@主房索引]ABS([@售序]),) ，用于表间互查数据 总房款 已收 待收 销售表：每次销售活动的真实记录，产品的组合及从产品表查取的基本信息； 标题名称 含义 售行 =ROW(主房[@])-ROW(销售[#标题]) 分区 分区名称 分期 分期名称 房号 手工输入数字（自定义格式） 售序 当前的销售次数，退房、换房不删除数据，所以用售次区别 买受人 业务姓名 顾问 置业顾问姓名 实售价 储号 储款 库号 库款 位号 位款 总房款 合同中填写的总金额 总款 =ROUND(SUM([@主房款],[@储款],[@库款],[@位款]),0)，自动计算的总金额 差异 =[@总房款]-[@总款] 主房面积 =INDEX(主房[面积],[@房行]) 认购日期 =IFERROR(INDEX(房款[实收日],MATCH([@销售索引]定金,房款[款类索引],0)),)，实交定金日期 主房款 =ROUND([@实售价]*[@主房面积],0) 房约日 购房合同签署日期 房约价 合同单价 买受人身份证号 共有人 共有人身份证号 合同交房日 贷行 贷含 贷款对象包含储藏室（C）、车库（K）等 贷额 公贷 资料日 贷款资料合格日 贷约日 贷款合同签署日 商放 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],40544,房款[款类],商贷)，商业贷款到账日 公放 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],40544,房款[款类],公贷)，公积金贷款到账日 已收 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],40544,房款[款类],找差)，不含找差 待收 =IF([@售序]0,[@总房款]-[@已收],0) 房行 =MATCH([@主房索引],主房[主房索引],0)，对应产品表的行号 主房索引 =INDEX(项目分区[代码],MATCH(房款!$B$1[@分区],项目分区[分区名称],0))[@分期]TEXT([@房号],0000000) 销售索引 =[@主房索引]ABS([@售序]) 换房 因业务换房造成本次销售无效时，记录换成了哪套房子 房款表：按合约应交、实交价款的信息 标题名称 含义 款行 =ROW(房款[@])-ROW(房款[#标题]) 买受人 =INDEX(销售[买受人],[@售行]) 分区 分期 房号 款类 售序 收据号码 应收日 实收日 金额 房类 打款方式 说明 房行 =MATCH([@主房索引],主房[主房索引],0) 售行 =MATCH([@销售索引],销售[销售索引],0) 售次 =INDEX(主房[售次],[@房行]) 主房索引 =$D$1[@分期]TEXT([@房号],0000000) 销售索引 =[@主房索引][@售序] 款类索引 =[@销售索引][@款类] 汇总计算表，使用VBA进行原始数据合并和统计指标的计算。 日报数据指标表（其他数据只是原始数据合并） 标题名称 含义 项目 分