Question

求帮忙编写excel的vb程序

表格1的a1~g10为甲

表格2的b3、c5~f20、h7~k3、s6为乙
求：1）甲与乙范围内相同的数据，并输出到表格3的b5~i5、b6~i6、b7~i7……（按从左到右、从上到下的规律罗列）
2）甲不同于乙的数据，输出到表格3的k5~s5、k6~s6、k7~s7……（按从左到右、从上到下的规律罗列）
3）甲不同于乙的数据，并随机抽取x个数据（x为表格3，a1的数值），并将结果输出到表格3的w5~z5、w6~z6、w7~z7……（按从左到右、从上到下的规律罗列）

Answer 1

有个疑问，是否甲乙各自的数据是不重复的？随机抽取有点意思。。。

追问

有重复的部分也有不重复的部分，这样才会有交集部分啊
问题补充：甲、乙范围内如果有=0的数据自动过滤掉，不属于【相同的数据】和【不同的数据】

追答

我是问甲和乙各自的数据范围内有无重复数据？

追问

哦，抱歉，没看清你的疑问，各自的范围没有重复数据

追答

恩，明白了，开始尝试写代码

追问

说好的代码呢

追答

我看到楼下高手已经帮你做好了，我就没继续下去，只写到一半。那个高手帮你写的程序可以满足你的需求吗？

追问

= =那个是随处打小广告的货，并不是代码

追答

我只写到1和2的功能实现，第三个我还没写完，我先把写好的发给你看下，你看下能否帮你实现你要的效果。

代码有点长，直接发不能发上来，只能上传了个小记事附件了。

另外第三个功能的要求，“并随机抽取x个数据” 这句话，x这个数字是人填写？所谓的随机抽取，是不是就是从k5~Sn中随便选取x个数据，是打乱的选择？

追问

@ @代码可以用，不过在取数值的范围a, b, c, d, e, f, g, h, i, j, z各代表什么还是看不懂，虽然阁下备注了org
其实以上三个要求并不是连在一起的代码，所以第三个功能是甲不同于乙的数据，并根据表格三a1的数值（a1数值为人填写的）

追答

Dim a, b, c, d, e, f, g, h, i, j, z As Integer
a = 1  'sheet1表的第一个数值的行号为1，第1行

b = 1  'sheet1表的第一个数值的列号为1，A列

c = 5  'sheet3表，存放重复数据的第一个数值的行号为5，第5行
d = 2  'sheet3表，存放重复数据的第一个数值的列号为2，B列

e = 5 'sheet3 表，存放不重复数据的第一个数值的行号为5，第5行
f = 11  'sheet3表，存放不重复数据的第一个数值的行号为11，K列

g = 5  'sheet2 表的数据区域块1，第一数值的行号为5，第5行

h = 3  'sheet2 表的数据区域块1，第一数值的列号为3，C列

i = 3  'sheet2 表的数据区域块1，第一数值的行号为3，第3行

j = 8  'sheet2 表的数据区域块1，第一数值的列号为8，H列

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

我详细对比了一下，发觉了上次代码中的一些错误，请你用这个新发的代码。

Answer 2

见附件，代码在宏test内