求助判断单元格取数的VBA，谢谢

zhycl · 发表于 2018-7-23 15:16

要求如下：
1、Sheet1为源数据。Sheet2为操作表。
2、Sheet1源数据表行数不固定。
3、Sheet2表中A列存在不固定的多个项目序号，中间用半角逗号隔开。
   Sheet2表 B 列= 判断Sheet2表A列中左数第一个项目序号与Sheet1表中A列相同的，取Sheet1表中B列数值。
   Sheet2表 C 列= 判断Sheet2表A列中所有项目序号与Sheet1表中A列相同的值，得到Sheet1表中C列的数值中间用半角逗号隔开。
   Sheet2表 D 列= 判断Sheet2表A列中所有项目序号与Sheet1表中A列相同的值，得到Sheet1表中D列的数值中间用半角逗号隔开。

   Sheet2表 E 列= 判断Sheet2表A列中所有项目序号与Sheet1表中A列相同的值，得到Sheet1表中E列的数值中间用半角逗号隔开。

谢谢老师的帮助。非常感谢

0001.rar (8.84 KB, 下载次数: 4)

不知道为什么 · 发表于 2018-7-23 21:08

如图，数组可以完成

不知道为什么 · 发表于 2018-7-23 21:10

代码供参考

zhycl · 发表于 2018-7-23 22:09

不知道为什么发表于 2018-7-23 21:10
代码供参考

首先感谢老师的帮助，我测试了，非常好，但是我想自己学习一下如何修改成我实际需要的，但没有成功，还望老师给予帮助。
实际情况如下：
1、Sheet1表源数据列入附件中所示位置，中间的空列均有其他数据，不能动。
2、Sheet2表中实际位置如附件，中间的空列均有其他数据，运行时不能受影响。
您看您能帮我再改改吗？谢谢了

12313.rar (20.77 KB, 下载次数: 2)

不知道为什么 · 发表于 2018-7-23 22:19

zhycl 发表于 2018-7-23 22:09
首先感谢老师的帮助，我测试了，非常好，但是我想自己学习一下如何修改成我实际需要的，但没有成功，还望 ...

就是个对眼得活，其实你自己也可以得。附件已修改

zhycl · 发表于 2018-7-30 19:49

不知道为什么发表于 2018-7-23 22:19
就是个对眼得活，其实你自己也可以得。附件已修改

不好意思，老师还得麻烦您，我在Sheet2表Y、Z列添加了相关信息后，发现运行后，Y列的编码变化了，能不让Y列变化吗？图1是运行前的样子，图2是运行后的结果，Y列前面的0都没有了。能不影响Y列及其他不用取值的列吗？
运行前.jpg

测试.rar (28.02 KB, 下载次数: 2)

不知道为什么 · 发表于 2018-7-30 20:20

zhycl 发表于 2018-7-30 19:49
不好意思，老师还得麻烦您，我在Sheet2表Y、Z列添加了相关信息后，发现运行后，Y列的编码变化了，能不让Y ...

如图，把这2处修改下即可

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

[求助] 求助判断单元格取数的VBA，谢谢

评分

评分