自下而上地去重后并转置数据

WYS67

老师们：请看截图。要求自下而上地去重后A3:A29中的数据，并转置到C2开始的第二行里。
    请老师们按照附件里的说明和要求编写自定义函数。在C2:L2中输入区域数组公式  {   =NXZZ(A3:A100000)   ，即可得出如C2:L2所显示的计算结果。
创建数据去重并转置的自定义函数.zip (9.69 KB, 下载次数: 16)

2018-9-15 14:04 上传

点击文件名下载附件

最新附件在 15楼。

WYS67

希望大神们帮忙

iwangyi

Sub CC()
Set d = CreateObject("scripting.dictionary")
n = [a65536].End(3).Row
arr = Range("a3:a" & n)
For i = 1 To UBound(arr)
    j = UBound(arr) - i + 1
d(arr(j, 1)) = ""
Next
[c2].Resize(, d.Count) = Application.Transpose(Application.Transpose(d.keys))
End Sub

iwangyi

附件，请参考

WYS67

iwangyi 发表于 2018-9-15 15:29
Sub CC()
Set d = CreateObject("scripting.dictionary")
n = [a65536].End(3).Row

非常感谢老师帮忙写了过程。正在研判学习。

WYS67

iwangyi 发表于 2018-9-15 15:29
Sub CC()
Set d = CreateObject("scripting.dictionary")
n = [a65536].End(3).Row

老师：能不能让代码不受65536的限制？表格100多万行呢！

iwangyi

100多万行就要数据库，EXCEL 12.0版才10万多行

WYS67

iwangyi 发表于 2018-9-15 15:43
100多万行就要数据库，EXCEL 12.0版才10万多行

老师：我用的是365软件，EXCEL 16.0版，真的有100多万行呢！

lss001

Function<><>

WYS67

lss001 发表于 2018-9-15 15:55
Function nxzz(rng As Range)
    ar = rng
    For k = UBound(ar) To 1 Step -1

老师：试过了，完全能用！假如事先不确定不重复数据个数，在C2:Z2里输入了{  =NXZZ(A3:A100000)，则从L2开始就会显示#N/A错误，怎样屏蔽#N/A错误为空白？