查找关键字所在列，复制所需行内容

S110018 · 发表于 2023-4-30 15:22

每日都需要将各公司不同格式如表1中带有“名字”“金额”等几个关键字样所在行下面列中（最后一行合计不要）的数据汇总到表2 （标准格式，数据从第4行填充），后续再按需求做处理。现设想将各公司的表先手工整表复制至表1（当作初步处理表），恳请高手赐教VBA码，或有什么捷径将几张不同格式表一齐汇总到表2 ，谢谢！

Jerry谭悦 · 发表于 2023-4-30 15:53

工作表没看懂，说说我的理解吧，把数据放入数组，然后在数组中查找对应的列中关键字，输出对应的其他列数据
例如：
ID001, 张三,男,40岁,未婚.....

Jerry谭悦 · 发表于 2023-4-30 15:59

Arr = Range("A1:C100") 大意：把A1:D100区域写入数组Arr
for i=1 to 1000
if arr(i,1)="你要查找的A列数据" then
ActiveSheet.Cells(i,10) = arr(i,2)大意：将数据输出到数据所在的行及第10列
endif
next

ykcbf1100 · 发表于 2023-4-30 21:34

既然求助，就要认真一点。你让写代码的人给你填充字段名不太合适吧。
象你这样半吊子的表，即使给你写了代码，你就能用吗？你还是要继续问东问西的。

S110018 · 发表于 2023-5-1 10:39

谢谢三楼四楼。需求是这样的，日常收到不同制表格式的发放表，需要将它们其中的名字、金额等项下的数据（发放表最后一行合计数不要）汇总到另一统一格式的汇总表中，参考表样见附表，汇总表格式固定。现在就寻求方法如何从格式不固定的发放表查到数据并复制到汇总表即可，谢谢！

3190496160 · 发表于 2023-5-1 11:37

S110018 发表于 2023-5-1 10:39
谢谢三楼四楼。需求是这样的，日常收到不同制表格式的发放表，需要将它们其中的名字、金额等项下的数据（发 ...

发放表是有多个还是一个呢？？

S110018 · 发表于 2023-5-1 15:51

发放表有时收到一个，有时几个，当然能解决两种情况最好了，解决一个我也满足了

gwjkkkkk · 发表于 2023-5-1 17:27

S110018 发表于 2023-5-1 15:51
发放表有时收到一个，有时几个，当然能解决两种情况最好了，解决一个我也满足了

简单模拟了一下，看是否达到要求。。。

吴中泉 · 发表于 2023-5-1 21:28

S110018 发表于 2023-5-1 10:39
谢谢三楼四楼。需求是这样的，日常收到不同制表格式的发放表，需要将它们其中的名字、金额等项下的数据（发 ...

我写了一个，看是否符合你的需求

整理汇总各杂乱分表.rar (22.28 KB, 下载次数: 15)

S110018 · 发表于 2023-5-2 22:39

非常感谢8楼、9楼两位老师的不惜赐教！8楼老师的查找关键字设在固定行，能否修改在不固定行或列呢。

9楼老师的有行码
sht.Range(Cells(r + 1, c), Cells(er1, c)).Copy .Range("B" & er + 1)，
运行提示应用程序定义或对象定义错误。请问为何呢？

		自动登录	找回密码
密码			免费注册

[求助] 查找关键字所在列，复制所需行内容

评分

评分

评分