用vba按组号提取对应单元格的数据

CAONI · 发表于 2018-8-5 00:54

求用vba按组号提取对应单元格的数据的程序

1、b5开始的b列各单元格分别填有不同的数字且每3行为一组即b5-b7为第1组、b8-b10为第2组、b11-b13为第3组依次......

2、f5开始的f列各单元格分别填有不同的数字,各数据分别代表b列数据的组号，如f5=1代表b列数据的第一组（b5-b7）、f5=4代表b列数据的第4组（b14-b16）、f5=9代表b列数据的第9组（b29-b31）......

3、f列的组号与b列数据的组号相对应并按f列的组号提取b列组的数据，当在f列填入1、4、9、11等数据时、则将b列数据的第1组、第4组、第9组、第11组的数据依次提取到g5开始的g列。

谢谢！

按组号提取数据.rar (6.97 KB, 下载次数: 22)

蓝桥玄霜 · 发表于 2018-8-5 09:20

请见代码。

xiangbaoan · 发表于 2018-8-5 09:44

………………………………

CAONI · 发表于 2018-8-5 11:02

xiangbaoan 发表于 2018-8-5 09:44
………………………………

程序经测试，满足要求，谢谢大师！

CAONI · 发表于 2018-8-5 14:01

蓝桥玄霜发表于 2018-8-5 09:20
请见代码。

程序经测试，满足要求，谢谢大师！

CAONI · 发表于 2018-8-5 15:05

xiangbaoan 发表于 2018-8-5 09:44
………………………………

老师你好，本程序的输出结果原题要求是从g5开始的g列依次填写（现在是从g2开始），改成这样：If Cells(r, 6) Then Cells(5 + (Cells(r, 6) - 1) * 3, 4).Resize(3).Copy [g65536].End(3)(5)中间会有3个空白行，请问能否改成结果锁定（即g4为空白单元格时）从g5开始的g列依次填写（即相邻二行之间没有空白行）结果，谢谢！

xiangbaoan · 发表于 2018-8-6 07:21

CAONI 发表于 2018-8-5 15:05
老师你好，本程序的输出结果原题要求是从g5开始的g列依次填写（现在是从g2开始），改成这样：If Cells(r ...

^^^^^^^^^^^^^^^^^^^^

CAONI · 发表于 2018-8-6 13:36

xiangbaoan 发表于 2018-8-6 07:21
^^^^^^^^^^^^^^^^^^^^

老师你好，改后的程序满足要求，谢谢！

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

[求助] 用vba按组号提取对应单元格的数据

评分

评分