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

iwangyi

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

不客气，谢谢鼓励献花

WYS67

9楼的代码，假如事先不确定不重复数据个数，在C2:Z2里输入了{  =NXZZ(A3:A100000)，则从L2开始就会显示#N/A错误，怎样屏蔽#N/A错误为空白？

lss001

Function QCHP(qu As Range, Optional tjqu, Optional tj = "")
    If IsMissing(tjqu) Then Set rng = Range("B3:B" & qu.Count)
    If Not IsMissing(tjqu) Then Set rng = tjqu
    ar = qu: cr = rng
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
    Next
    Set d = CreateObject("scripting.dictionary")
    For i = k To 1 Step -1
        If tj = "" Then
            If ar(i, 1) <> "" Then d(ar(i, 1)) = ""
        Else
            If ar(i, 1) <> "" And cr(i, 1) = tj Then d(ar(i, 1)) = ""
        End If
    Next
    nx = Application.Transpose(d.Keys)
    ReDim br(1 To UBound(ar), 1 To 1)
    For i = 1 To UBound(ar)
        If i < d.Count + 1 Then br(i, 1) = nx(i, 1) Else br(i, 1) = ""
    Next
    QCHP = Application.Transpose(br)
End Function

WYS67

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

老师：已测试，非常圆满！谢谢！

WYS67

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

能否在您13楼代码的基础上，增加  条件区域和指定条件  两个参数？

   在H4:BO4中输入区域数组公式  {   =QCHP(数据区域,条件区域,指定条件【数字或单元格调用】) ，   比如：在H4:BO4中输入区域数组公式{ =QCHP($A$3:$A$100000,$B$3:$B$100000,$G4)，即可得出如H4:BO4所显示的计算结果。公式下拉至H6:BO6，便能得出附件里H4:BO6显示的计算结果；

   其中：第二、三参数可省略，省略后{ =QCHP(数据区域)，具备13楼原代码的功能：自下而上地去重A3:A100000中的所有数据，并转置到H3:BO3里。
   比如：在H3:BO3中输入区域数组公式  {   =QCHP($A$3:$A$100000)， 即可得出如H3:BO3所显示的计算结果.


创建数据去重并转置的自定义函数.zip (28.52 KB, 下载次数: 8)

2018-9-16 10:10 上传

点击文件名下载附件

WYS67

希望老师帮忙！

WYS67

再次恳请老师们帮忙！

alstar

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

j = UBound(arr) - i + 1 精辟啊。

我刚写了一下，把数据装入arr数组。之后对arr反过来循环再把数据装入新的arr1的数组中。。再把arr1装入字典。有点绕。

看了一下你这个ubound(arr)-i+1后，豁然开朗了。

iwangyi

alstar 发表于 2018-9-16 12:31
j = UBound(arr) - i + 1 精辟啊。

我刚写了一下，把数据装入arr数组。之后对arr反过来循环再把数据装 ...

思路和习惯，怎样觉着顺手就怎样写。

WYS67

再次恳请老师们帮忙解决15楼里的问题！