关于字典绑定查询数组中数据是否有相同的问题！！

ャ想想ャ

大神好，求赐教！谢谢！
当T列单元格不为空时，而判断该值是否在之前出现过，如果出现过即跳过，往下运行。
如果没有出现过，而将需要的数据放入数组中。

我试着写了一段代码，但是，前4个都没有问题，到了第5个（即表中第6行）应该是之前没有出现过的值，却依然跳过了，所以不知道问题出在哪里了。

请大家看看，我是哪里写错了？谢谢。

山菊花

问题1，A列数据只有1行，保存到数组的数据只有2行:A1:AC2。
问题2：T列数据在org(e, 20)，不是org(e, 19)。
问题3：Select Case后面的表达式写错了，见如下修改：

1. If Not dd.exists(org(e, 20)) Then
   
2.             dd.Add org(e, 20), e
   
3.             no = no + 1
   
4.    
   
5.     Select Case org(e, 20)
   
6.         Case Is = ""
   
7.             cont(no, 1) = org(e, 2)
   
8.             cont(no, 2) = org(e, 3)
   
9.             cont(no, 3) = org(e, 19)
   
10.             cont(no, 4) = org(e, 23)
    
11.             cont(no, 5) = org(e, 29)
    
12.             
    
13.         Case Is <> ""
    
14.             cont(no, 1) = org(e, 2)
    
15.             cont(no, 2) = "P" & Left(Sheet1.Range("t" & e + 1), 6)
    
16.             cont(no, 3) = Application.WorksheetFunction.SumIfs(Sheet1.Range("s:s"), Sheet1.Range("t:t"), Sheet1.Range("t" & e + 1))
    
17.             cont(no, 4) = org(e, 23)
    
18.             cont(no, 5) = org(e, 29)
    
19.        End Select
    
20. End If

复制代码

Select Case 这段代码用IF语句更合适：
    If org(e, 20) = "" Then
        cont(no, 2) = org(e, 3)
        cont(no, 3) = org(e, 19)
    Else
        cont(no, 2) = "P" & Left(org(e + 1, 20), 6)
        cont(no, 3) = Application.WorksheetFunction.SumIfs(Sheet1.Range("s:s"), Sheet1.Range("t:t"), Sheet1.Range("t" & e + 1))
    End If
    cont(no, 1) = org(e, 2)
    cont(no, 4) = org(e, 23)
    cont(no, 5) = org(e, 29)

liulang0808

Sub T1()

'list the data

Dim e, f As Integer
Dim cont, org
Set dd = CreateObject("scripting.dictionary")
f = Sheet1.Range("t100000").End(xlUp).Row
org = Sheet1.Range("a2:ac" & f)
ReDim cont(1 To UBound(org), 1 To 5)

For e = 1 To UBound(org)

'当e运行到5后，就不会再判断是否存了。运行到5时，应该是表中的第6行，这个应该是之前没有出现过的，应该是要计算的，但是，后面就全部跳过了。

If Not dd.exists(org(e, 20)) Then
            dd.Add org(e, 20), e
            no = no + 1
   
    Select Case M = Sheet1.Range("T" & e + 1)
        Case M = ""
            cont(no, 1) = org(e, 2)
            cont(no, 2) = org(e, 3)
            cont(no, 3) = org(e, 19)
            cont(no, 4) = org(e, 23)
            cont(no, 5) = org(e, 29)
            
        Case M <> ""
            cont(no, 1) = org(e, 2)
            cont(no, 2) = "P" & Left(Sheet1.Range("t" & e + 1), 6)
            cont(no, 3) = Application.WorksheetFunction.SumIfs(Sheet1.Range("s:s"), Sheet1.Range("t:t"), Sheet1.Range("t" & e + 1))
            cont(no, 4) = org(e, 23)
            cont(no, 5) = org(e, 29)
       End Select
End If

Next e
            
Sheet2.[a1].Resize(no, 5) = cont


End Sub
修改的不知道，对不对，楼主描述跟代码及表格数据对应上有出入，只能猜一下的

ャ想想ャ

liulang0808 发表于 2019-12-10 07:42
Sub T1()

'list the data

太感谢了，那看来思路还是对的，只是傻到自己看错了列！
谢谢，谢谢。

ャ想想ャ

山菊花 发表于 2019-12-10 07:36
问题1，A列数据只有1行，保存到数组的数据只有2行:A1:AC2。
问题2：T列数据在org(e, 20)，不是org(e, 19) ...

谢谢您帮我改写的，这样会更好，代码更简单，而且更快，十分感谢您的”多此一举“，太感谢了！

ャ想想ャ

山菊花 发表于 2019-12-10 07:36
问题1，A列数据只有1行，保存到数组的数据只有2行:A1:AC2。
问题2：T列数据在org(e, 20)，不是org(e, 19) ...

您好，谢谢您帮我改写的代码。请问能否帮我解释下这句代码的意思吗？我是照葫芦画瓢的，含义根本不懂。then后面的，这句
If Not dd.exists(org(e, 20)) Then
            dd.Add org(e, 20), e
            no = no + 1

山菊花

        If Not dd.exists(org(e, 20)) Then '如果字典中不存在 org(e, 20)
            dd.Add org(e, 20), e '把org(e, 20)添加到字典dd
            no = no + 1 'no用作数组cont的行号，增加1，后面把数据写入数组这一行

ャ想想ャ

ャ想想ャ 发表于 2019-12-10 16:48
您好，谢谢您帮我改写的代码。请问能否帮我解释下这句代码的意思吗？我是照葫芦画瓢的，含义根本不懂。th ...

请问add org(e,20),e中，最后这个e是什么意思？

山菊花

ャ想想ャ 发表于 2019-12-24 21:19
请问add org(e,20),e中，最后这个e是什么意思？

e就是For循环语句中的变量：
    For e = 1 To UBound(org)

语句中的e有什么意义呢？
本程序中e没意义，它就是一个数，添加关键字到字典，必须有一个配对的条目，不用e，改用1，改用0，改用True，改用空值""，或其它，都行。