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

Long_III · 发表于 2005-4-14 16:41

以下是引用shangyu在2005-4-14 16:25:00的发言：
.Cells(i).Value = .Cells(i) & "-----" c.Value = c.Value & "-----"

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

谢谢shangyu版主的指导！

我再想想其他的方法，让各位见笑了

yigepure · 发表于 2005-4-14 17:28

以下是引用apolloh在2005-4-14 13:26:00的发言： 用frequency时你想过先排序没有？还有其他方法也可想，另外rongjun和gvntw已经做出来的方法要生成内存数组也有简便的方法。：）

其实我定义的名称中.也已经把各自的位置已经取出来了.

yigepure · 发表于 2005-4-14 17:52

算了,想了这么久,头都晕了.还是等着看各位老大的方法吧,再不就是总结了,我发现我每次做的都是最笨的方法.真是有点....[em04]

Long_III · 发表于 2005-4-14 17:56

求救！没办法，实在是不知为什么，请看代码（函数的结果会有很多的空单元格，真是奇怪？）

Function Hre(rng As Range, rng1 As Range, n) Application.Volatile Dim Arr1() Dim Arr2() Dim Arr t1 = rng.Count t2 = rng1.Count ReDim Arr1(t1) ReDim Arr2(t2) For i = 1 To t1 Arr1(i) = rng.Cells(i) Next For i = 1 To t2 Arr2(i) = rng1.Cells(i) Next For i = 1 To t1 For j = 1 To t2 If Arr1(i) = Arr2(j) Then Arr1(i) = "-----" Arr2(j) = "-----" Exit For End If Next Next t = Join(Arr1) & Join(Arr2) t = Trim(Replace(t, "-----", "")) '为什么这里用trim函数不管用呢？ Arr = Split(t) Hre = Arr(n - 1) End Function

2R0w654U.rar (12.34 KB, 下载次数: 85)

[此贴子已经被作者于2005-4-14 17:56:35编辑过]

半榻茶烟 · 发表于 2005-4-14 21:47

也来凑一下热闹。

xcLuryTh.rar (4.96 KB, 下载次数: 186)

yigepure · 发表于 2005-4-14 22:08

MATCH()与COUNTIF()用的好.

chenjun · 发表于 2005-4-15 01:11

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

呵呵！

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

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

自定义函数还不小菜一碟！定义2个数组表示这2个Range，循环第1个的各个元素，分别与第2个数组比较，如匹配就将2个数组中的匹配值统一改成一个特殊标记，循环完了后就在依次将2个数组中不是特殊标记的值赋给第3个数组（需要动态数组），最后将第3个数组赋给函数名返回。

Long_III · 发表于 2005-4-15 08:27

chenjun版主，我本意是这样的，后来做的时候突然想到了join函数，我最后一步就简化了，改为了下面这样

t = Join(Arr1) & Join(Arr2) t = Trim(Replace(t, "-----", "")) '为什么这里用trim函数不管用呢？ Arr = Split(t) Hre = Arr(n - 1)

然而，问题也就产生了，最后arr数组里面有一些替换的空值不能去掉，我很想知道为什么不行？！

如果这种方法不行，那就真的只能按您说的，赋值给新数组了！

apolloh · 发表于 2005-4-15 08:31

以下是引用半榻茶烟在2005-4-14 21:47:00的发言：
也来凑一下热闹。

谢谢茶烟版主！　我下载研究一下：）

apolloh · 发表于 2005-4-15 08:33

以下是引用Long_III在2005-4-15 8:27:00的发言：
chenjun版主，我本意是这样的，后来做的时候突然想到了join函数，我最后一步就简化了，改为了下面这样

t = Join(Arr1) & Join(Arr2) t = Trim(Replace(t, "-----", "")) '为什么这里用trim函数不管用呢？ Arr = Split(t) Hre = Arr(n - 1)

然而，问题也就产生了，最后arr数组里面有一些替换的空值不能去掉，我很想知道为什么不行？！

如果这种方法不行，那就真的只能按您说的，赋值给新数组了！

我没细看，不过你替换后是空值，不是空格用不着ｔｒｉｍ吧

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

[Excel 函数与公式] [开_20] 数组合并与置换[已总结] ★★★★