求助大神写个代码下

宝红

每月根据财务数据提取相应报表，求助大神，用VBA写一段代码实现。sheet1数据要先处理，根据G列数据提取部门信息，部门信息可根据sheet2表内容，并将提取的数据从写入H列部门中，比如：“运营公司三明分公司.运营福建三明市分公司政企BG统筹协调与业务支撑板块统筹经营组.不可分摊专业.主营业务成本-运行成本-差旅费.缺省.缺省.缺省.缺省.缺省 ”提取部门政企BG写入H列部门中；根据G列数据提取科目，比如"运营公司三明分公司.运营福建三明市分公司政企BG统筹协调与业务支撑板块统筹经营组.不可分摊专业.主营业务成本-运行成本-差旅费.缺省.缺省.缺省.缺省.缺省"提取差旅费，将数据写入I列三级科目。   基础数据调整好以后，将各项费用金额汇总写入对应单元格内，如图：                                                                                                                                                                                                                                                          

fanyoulin

1、删除了第二个工作表，它与第三个工作表是重复的；
2、更改了一个数据：原来的 “市本部” 改成了 “市场部”，因为我看到明细表就是市场部；
3、“科目”那个工作表暂时没有用到；

清风竹-

请看附件。

宝红

清风竹- 发表于 2024-8-16 13:43
请看附件。

非常感谢，

宝红

fanyoulin 发表于 2024-8-16 13:37
1、删除了第二个工作表，它与第三个工作表是重复的；
2、更改了一个数据：原来的 “市本部” 改成了 “市 ...

非常感谢，太强调

宝红

fanyoulin 发表于 2024-8-16 13:37
1、删除了第二个工作表，它与第三个工作表是重复的；
2、更改了一个数据：原来的 “市本部” 改成了 “市 ...

最终显示表里面，市本部包含：交付中心、云网中心、市场部、管理层、客户服务部、办公室（办公室、安全监管部）、工会、综合业务支撑中心、财务部、纪检组、党委宣传部（党群工作部）、党委组织部（人力资源部）这些的。能够再稍微调整下

zzzzzzxc

都是大神 学习学习

fanyoulin

宝红 发表于 2024-8-16 15:24
最终显示表里面，市本部包含：交付中心、云网中心、市场部、管理层、客户服务部、办公室（办公室、安全监 ...

重新修改了，在g1单元格定义统计范围，如果修改了定义的单元格位置，只修要修改一个代码，代码里有注释；

宝红

fanyoulin 发表于 2024-8-19 09:11
重新修改了，在g1单元格定义统计范围，如果修改了定义的单元格位置，只修要修改一个代码，代码里有注释； ...

十分感谢，学习了。