Office中国论坛/Access中国论坛

标题: 求助高手：帮忙写个函数公式 [打印本页]

作者: 床前明月光 时间: 2008-1-13 23:17
标题: 求助高手：帮忙写个函数公式
谢谢了

详见附件

作者: 欢欢 时间: 2008-1-13 23:57
这类题目我刚作过，建议你去我的博客看看，今天晚了，想睡觉了，给你一个链接如何

http://hi.baidu.com/huanhuanxiaozhua/blog/index/1 排多个重复值唯一数列（二）函数法：

作者: 欢欢 时间: 2008-1-14 19:29
刚学的vba数组解法
Private Sub CommandButton1_Click()
Dim xm() As String, Arr() As String, Temp() As String '声明变量
Dim s%, r% '声明单值变量
On Error Resume Next
ReDim Arr(256)
For s = 1 To 256
Arr(s) = ActiveSheet.Cells(3, s)
Next
zs = UBound(Arr)
For s = 0 To zs
If Arr(s) <> "" Then
Temp = Filter(xm, Arr(s)) '搜索数组
      If UBound(Temp) = -1 Then '如果未找到
         r = r + 1 '序号，自增1
         ReDim Preserve xm(1 To r) '定义动态数组大小
         xm(r) = Arr(s) '把姓名复制到数组XM()中。
         If r = 10 Then Exit For
      End If
End If
Next
Range("K6:T6") = xm
End Sub

作者: 欢欢 时间: 2008-1-14 23:07
以上代码可以解决你的问题，你没有看吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)