请大师写一个两列数据去除数据并集的程序

bluexuemei

请重新上传附件。

hjqiang888

bluexuemei 发表于 2014-11-10 13:08
请重新上传附件。

工作簿9.rar (6.3 KB, 下载次数: 1)

2014-11-10 16:00 上传

点击文件名下载附件

附件已上传 请看一下，谢谢

bluexuemei

如果是去掉并集，这样子？

1. Sub test()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. y = ojs.eval("def aa(aa,bb);$aa=aa.flatten;$bb=bb.flatten;end")
   
5. y = ojs.Run("aa", Sheet1.Range("d4", [d4].End(4)).Value, Range("e4", [e4].End(4)).Value)
   
6. y = ojs.eval("Dir.chdir('" & ThisWorkbook.Path & "');f=File.new('1.txt','w');f.puts (($bb-$aa)+($aa-$bb)).each_slice(10).to_a.map{|k|k.map{|x|x.is_a?(Float)?(x.to_i):x}.join(9.chr)}.join(10.chr);f.close")
   
7. y = ojs.eval("(($bb-$aa)+($aa-$bb)).zip")
   
8. '[g4].Resize(UBound(y) + 1) = y
   
9. Set ojs = Nothing
   
10. Shell "notepad " & ThisWorkbook.Path & "\1.txt", 1
    
11. 'Stop
    
12. End Sub

复制代码

hjqiang888

bluexuemei 发表于 2014-11-10 16:07
如果是去掉并集，这样子？

您好  返回的数据有错  主要是前面部分的不对  下面的正确，您看看

bluexuemei

hjqiang888 发表于 2014-11-10 16:49
您好  返回的数据有错  主要是前面部分的不对  下面的正确，您看看

你要的结果是什么，贴出来。

hjqiang888

我要的结果  是从前面的数据中  去掉后面的数据， 把剩下的数据 取出来。

bluexuemei

1. Sub test()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. y = ojs.eval("def aa(aa,bb);$aa=aa.flatten;$bb=bb.flatten;end")
   
5. y = ojs.Run("aa", Sheet1.Range("d4", [d4].End(4)).Value, Range("e4", [e4].End(4)).Value)
   
6. y = ojs.eval("Dir.chdir('" & ThisWorkbook.Path & "');f=File.new('1.txt','w');f.puts ($aa-$bb).each_slice(10).to_a.map{|k|k.map{|x|x.is_a?(Float)?(x.to_i):x}.join(9.chr)}.join(10.chr);f.close")
   
7. y = ojs.eval("($aa-$bb).zip")
   
8. [g4].Resize(UBound(y) + 1) = y
   
9. Set ojs = Nothing
   
10. Shell "notepad " & ThisWorkbook.Path & "\1.txt", 1
    
11. 'Stop
    
12. End Sub

复制代码

hjqiang888

这次运行非常正确，谢谢。

hjqiang888

bluexuemei 发表于 2014-11-10 17:29

您好，我把前后两个程序整合到一起了，根据两列数据的数量判断，来选择运行两个程序，运行后，有时正确，大多数时，都是错误的。您再看看，谢谢。（您就在这个附件上修改吧，两个程序好象都有问题）
工作簿9.rar (20.49 KB, 下载次数: 1)

2014-11-13 19:05 上传

点击文件名下载附件

bluexuemei

根本不存在根据两列数据的数量判断，来选择运行两个程序。你要的结果如果是D列减去D列中和E列相同的元素，那就是$aa-$bb；你要的结果如果是E列减去E列中和D列相同的元素，那就是$bb-$aa

1. Sub t()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. y = ojs.eval("def aa(aa,bb);$aa=aa.flatten;$bb=bb.flatten;end")
   
5. y = ojs.Run("aa", Sheet1.Range("d4", [d4].End(4)).Value, Range("e4", [e4].End(4)).Value)
   
6. y = ojs.eval("Dir.chdir('" & ThisWorkbook.Path & "');f=File.new('1.txt','w');f.puts ($aa-$bb).each_slice(10).to_a.map{|k|k.map{|x|x.is_a?(Float)?(x.to_i):x}.join(9.chr)}.join(10.chr);f.close")
   
7. y = ojs.eval("($aa-$bb).zip")
   
8. [g4].Resize(UBound(y) + 1).NumberFormatLocal = "@"
   
9. [g4].Resize(UBound(y) + 1) = y
   
10. Set ojs = Nothing
    
11. Shell "notepad " & ThisWorkbook.Path & "\1.txt", 1
    
12. 'Stop
    
13. End Sub

复制代码

)