[开_20] 数组合并与置换[已总结] ★★★★

apolloh

本期议题：有人解过类似的东东，但这个难度要比较大一些：）
[求集合非相交部分——交集在并集中的补集问题]
发起人 apolloh 发起日 2005-4-14 答案公布日 2005-04-19 总结日 2005-04-20

[ 本帖最后由 apolloh 于 2008-11-8 17:46 编辑 ]

yigepure

其实这个问题在实际中是非常有用的.大家都来做一做看看吧.如果你要用辅助列,也尽可以一试.公式本身并不重要,关链在于检查一下你的思路.

yigepure

当然了,取数仍是用的COUNTIF().这没有什么新鲜的.不过为了支持老兄,还是贴上来了.

不过这次生成的一定是内存数组.不过用的是偷机的方法.呵呵:)

j2VfiYJp.rar (5.23 KB, 下载次数: 438)

2005-4-14 12:54 上传

点击文件名下载附件
[函数应用测试题15] 求集合非相交部分-数组合并与置换 ★★★★

apolloh

以下是引用yigepure在2005-4-14 12:53:00的发言：

当然了,取数仍是用的COUNTIF().这没有什么新鲜的.不过为了支持老兄,还是贴上来了.

不过这次生成的一定是内存数组.不过用的是偷机的方法.呵呵:)

呵呵，下次我把题目改成AC，CF，EF，AH，看你还怎么做：）

yigepure

那我只好用常规解法了.求出它们各自的数.再分别取.

老兄应该给点提示了:)

Long_III

以下是引用apolloh在2005-4-14 13:17:00的发言： > 呵呵，下次我把题目改成AC，CF，EF，AH，看你还怎么做：）

呵呵！

题目很有难度，我想编个自定义函数，都觉得不大可能

只能在表中相互查找一一对应的删！

apolloh

用frequency时你想过先排序没有？还有其他方法也可想，另外rongjun和gvntw已经做出来的方法要生成内存数组也有简便的方法。：）

apolloh

以下是引用Long_III在2005-4-14 13:26:00的发言： ）

呵呵！

题目很有难度，我想编个自定义函数，都觉得不大可能

只能在表中相互查找一一对应的删！

自定义函数可以通过数组操作来做：）

Long_III

apolloh斑竹，为什么我最下面的代码运行正常，而在自定义函数中却不行呢？我看了好久都没找到原因

能帮我看看吗？（我知道你们在这里讨论函数的方法，不好意思，打扰了）

Function Hre(rng As Range, rng1 As Range, n) Application.Volatile Dim Arr

With rng For i = 1 To .Count Set c = rng1.Find(.Cells(i), LookAt:=xlWhole) If Not c Is Nothing Then .Cells(i).Value = .Cells(i) & "-----" c.Value = c.Value & "-----" End If Next End With k = 1 Set rng2 = Application.Union(rng, rng1) For Each r In rng2 If InStr(1, r, "-----") = 0 Then ReDim Arr(k) Arr(k) = r.Value k = k + 1 End If Next rng2.Replace "-----", "", LookAt:=xlPart

Hre = Arr(n) End Function

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub hjs()

Set rng = Sheet1.Range("b3:b18") Set rng1 = Sheet1.Range("d3:d14")

With rng For i = 1 To .Count Set c = rng1.Find(.Cells(i), LookAt:=xlWhole) If Not c Is Nothing Then .Cells(i).Value = .Cells(i) & "-----" c.Value = c.Value & "-----" End If Next End With

Set rng2 = Application.Union(rng, rng1) k = 3 For Each r In rng2 If InStr(1, r, "-----") = 0 Then Sheet1.Cells(k, 6) = r k = k + 1 End If Next rng2.Replace "-----", "", LookAt:=xlPart

End Sub

shangyu

.Cells(i).Value = .Cells(i) & "-----" c.Value = c.Value & "-----"

你不能在工作表的自定义函数中设置单元格的属性，如果在sub过程中调用该函数，则可以