ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 280|回复: 9

[求助] 按表格格式从源数据中写入数据

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-1-6 00:19 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 亲亲小布布 于 2024-1-7 22:38 编辑

请教各位,
目的如下,1.按照A:E列格式,从I:P列中查找数据并按照顺序写入表格,A列按照I列取唯一值拼音排序,B列数据源为J列,并按照P1\P2\P3顺序(如果层位没有P1,则以P2开头,没有P2则以P3开头),C列按照K列0-1/1-2/2-3/3-4,由小到大的顺序;2.其中厚度列需要根据其范围,比如E3-1,P1,12-18,厚度(O列)则取(14.4+14.1+17+18)/4=15.87,两厚度区间交点如12-18和18-24两区间,交点18算在前面的区间即12-18区间,还有两种特殊情况,其一是,单元格E13(有公式请点击),则厚度取值为(0+9)/2=4.5,其二,例如单元格D12,区间为厚度1-2,从层位为E2-1,O列厚度数据中寻找发现只有1.6这个数据,则取1.6即可。3.所以数据匹配完毕,需要算出各个层位和各个级别下的厚度加权平均值(请点击查看F列中公式)
感谢各位!
2024-01-05_235705.png

1.zip

11.66 KB, 下载次数: 1

TA的精华主题

TA的得分主题

发表于 2024-1-6 07:38 | 显示全部楼层
建议楼主结合附件模拟下结果,并进一步描述具体步骤

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-7 22:44 | 显示全部楼层
liulang0808 发表于 2024-1-6 07:38
建议楼主结合附件模拟下结果,并进一步描述具体步骤

以手动填写想要的结果,并更新描述,感谢您

TA的精华主题

TA的得分主题

发表于 2024-1-8 00:24 | 显示全部楼层
1.rar (25.91 KB, 下载次数: 12)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-8 14:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

首先感谢您,仔细拜读了您的代码,实现了我的急需,万分感谢,有个情况,原本的A到F的数据源应该是都来源于后面I到P列的数据,本身ABC列是没有数据的,也需要从后面自动读取

TA的精华主题

TA的得分主题

发表于 2024-1-8 15:57 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-8 17:23 | 显示全部楼层

完美解决了问题,思路非常巧妙,对我启发很大,再请教个问题,1.
  1. s = Replace(br(i, 1), "厚度面积", "")
复制代码
,如果后面的汉字不规则,该如何替换

TA的精华主题

TA的得分主题

发表于 2024-1-8 18:44 | 显示全部楼层
如果要取的字符串长度一致,
可以直接取前几位,比如:s=left(br(i,1),4)

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-9 08:35 | 显示全部楼层
yynrzwh 发表于 2024-1-8 18:44
如果要取的字符串长度一致,
可以直接取前几位,比如:s=left(br(i,1),4)

如果前面是字母加数字加-的组合,后面为汉字,但是字数不定,比如E1面积,E1-3厚度面积,E2-1-3厚度面,这样的组合怎么取前面的字母加-加数字的组合

TA的精华主题

TA的得分主题

发表于 2024-1-9 10:12 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
用正则,或者循环字符串去掉汉字
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-29 12:08 , Processed in 0.036780 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表