函数提取不重复值（要求非三键）[答案公布]

851728938@qq.co · 发表于 2013-7-14 18:20

看看

武林长风 · 发表于 2013-7-14 18:31

学习学习增长知识

我心飞翔410 · 发表于 2013-7-22 18:34

最近遇到同样的问题

xhrys · 发表于 2013-8-2 21:38

查看先进的方法谢谢了

lyf7276 · 发表于 2013-8-2 21:48

如果您要查看本帖隐藏内容请回复

tgydslr · 发表于 2013-8-6 22:16

看看非数组怎么解

ddmyykdzh · 发表于 2013-10-24 12:03

学习

mg0601001 · 发表于 2013-10-24 12:48

上次看到一个了，里面处理的蛮好的，看看，学习学习

mg0601001 · 发表于 2013-10-24 12:48

fjmxwrs 发表于 2010-4-11 00:47
**** 本内容被作者隐藏 ****
[此贴子已经被作者于2010-4-11 0:47:50编辑过]

不能下拉哦

hlzqzz · 发表于 2013-11-3 16:32

Sub aa()
j = 1
Cells(1, 2) = Cells(1, 1)
For i = 1 To Cells.Rows.Count
      F = 0
      For k = 1 To j

         If Cells(i, 1) = Cells(k, 2) Then
            F = 1
            Exit For
         End If
      Next k

      If F = 0 Then
         Cells(k, 2) = Cells(i, 1)
         j = j + 1
      End If
Next i
End Sub

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

函数提取不重复值（要求非三键）[答案公布]

浏览过的版块