关于重复值和非重复值(2003.10.20新增二例)

初学者_7 · 发表于 2004-6-30 13:07

A1:01 02 03 06 07 08 09 14 15 16 17 22 23 24 25 28 29 30 31 32

B1:01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

要在C1写公式,筛选在B1在没有A1的数:(不知道是不是这种方法,我用楼主的不行啊)

C1:04 05 10 11 12 13 18 19 20 21 26 27 33 34 35 36

http://club.excelhome.net/viewthread.php?tid=51667

chenjun · 发表于 2004-7-1 00:06

用VBA回答你了。

初学者_7 · 发表于 2004-7-1 10:31

谢谢chenjun版主,用起来跑得快,一个字"爽",再也不用手工劳动了...

Laolangsex · 发表于 2004-7-6 15:05

用数组公式太复杂,极容易出错,速度也慢,用VBA编一个,操作简单,速度快

以下是其中一个,其它的可以类推,简单修改本程序即可,本人已全部完成

有需要的请发到本论坛我的短信箱中,同时也请大家测试完善代码,以求效率高

'返回区域Rin中重复出现的值

Function Cfz(Rin As Range) Dim Rc As String Dim Boof As WorksheetFunction Set Boof = Application.WorksheetFunction Rc = "" For i = Rin.Cells.Count To 1 Step -1 Rb = Rin.Cells.Item(i).Value If Boof.CountIf(Rin, Rb) > 1 Then Rc = Rb & "↑" & Replace(Rc, Rb & "↑", "") End If Next Cfz = IIf(Rc = "↑", "无重复值", Split(Left(Rc, Len(Rc) - 1), "↑")) End Function

用INDEX()来取值.

keyck · 发表于 2004-7-14 14:59

请问半榻茶烟先生，如果只需要筛选A列的非重复值并作出记号，如何做呀？请看附件

keyck · 发表于 2004-7-14 15:36

请问半榻茶烟先生，如果需要找出A列的第一个非重复数据并做上记号，如何做呀？

rQRVcSwQ.rar (2.77 KB, 下载次数: 29)

谢谢半榻茶烟先生,行了

[此贴子已经被作者于2004-7-25 14:45:27编辑过]

半榻茶烟 · 发表于 2004-7-17 00:17

给两种方法供您参考。

LKjz3HVM.rar (3.31 KB, 下载次数: 75)

kawin · 发表于 2004-7-19 22:05

谢谢，多来点!

water1982 · 发表于 2004-7-22 14:11

我把半榻茶烟的数据

A	A
B	BB
C	CC
DD	DD
E	BB
A	F
G	GG
HH	HH
I	A
J	JJ

COPY到新建的EXCEL，在C1输入公式计算结果C1=B，但我向下填充的时候全等于B，为什么呢？我的是OFFICE 2000！

另外想问一下：下面的例子怎么搞？

表一

业务经理	公司
许	A
张	B
王	C
李	D
钟	E
林	F

表二

业务经理	公司	批注
许	A	审核
张	B	审核
王	C	审核

表二前两列是表一的一个子集，现在要把表二的第三列中的“批注”分别插入表一相应行去，该怎么办！

[此贴子已经被作者于2004-7-22 14:11:27编辑过]

xiao1965 · 发表于 2004-7-24 10:32

诸位大虾好：

我是一个英语教师，对Excel知道得非常少。我用Excel制作了一套英语自测题，但是在给学生测试时发现了一个问题。懒惰的学生在测试中抄袭答案，因此效果不好。我想如果把这套题按照随机编排、重组，效果一定能好一点。但我不知道应该怎么做，请大虾们帮助。有两种思路：一、把所有的题随机重组；二、把所有的题随机重组，选项也重组。谢谢！敬盼回音！

On6OQ9vz.rar (225.85 KB, 下载次数: 34)

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

关于重复值和非重复值(2003.10.20新增二例)

请大虾帮忙