建立数组查询结果

孙旭白

Sub try()
Dim arr
Dim dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheets("明细").UsedRange
For i = 2 To UBound(arr)
    s = arr(i, 4) & arr(i, 6)
    s1 = arr(i, 10) & arr(i, 6)
    If Not dic.exists(s) Then
        dic(s) = arr(i, 2)
    End If
    If Not dic.exists(s1) Then
        dic(s1) = arr(i, 2)
    End If
Next i

For i = 2 To Sheets("延误占比").Range("a65536").End(xlUp).Row
    s2 = Sheets("延误占比").Range("a" & i) & Sheets("延误占比").Range("b" & i)
    s3 = Sheets("延误占比").Range("a" & i - 1) & Sheets("延误占比").Range("b" & i)
    If Sheets("延误占比").Range("a" & i) <> "" Then
         Sheets("延误占比").Range("c" & i) = dic(s2)
    Else
        Sheets("延误占比").Range("c" & i) = dic(s3)
    End If
    If Sheets("延误占比").Range("c" & i) = "" Then
        Sheets("延误占比").Range("c" & i) = "达标"
    End If
Next i

End Sub

孙旭白

请再试一下代码

czg975572566

孙旭白 发表于 2019-12-26 08:31
请再试一下代码

谢谢老师，的确可以了，我学习学习

czg975572566

孙旭白 发表于 2019-12-26 08:30
Sub try()
Dim arr
Dim dic

老师，这个代码运行到这边就停止了，如何让代码再运行一步呢，我刚接触这个，实在不懂

孙旭白

For i = 2 To Sheets("延误占比").Range("a65536").End(xlUp).Row中的a65536改成b65536

czg975572566

孙旭白 发表于 2019-12-26 13:53
For i = 2 To Sheets("延误占比").Range("a65536").End(xlUp).Row中的a65536改成b65536

万分感谢，我刚买了vba的书，再理解理解

孙旭白

czg975572566 发表于 2019-12-26 14:39
万分感谢，我刚买了vba的书，再理解理解

不必着急，大部分工作，excel基本功能和公式能解决。只是接触到VBA，就不想回头了，慎入

czg975572566

孙旭白 发表于 2019-12-26 14:55
不必着急，大部分工作，excel基本功能和公式能解决。只是接触到VBA，就不想回头了，慎入

在网上看了几天教程了，觉得有必要入手一本实体书，入了一本Excelhome的vba其实没那么难

czg975572566

孙旭白 发表于 2019-12-26 14:55
不必着急，大部分工作，excel基本功能和公式能解决。只是接触到VBA，就不想回头了，慎入

老师，您提供的这个代码，如果我想要在应出门时间列后面（即延误占比工作表的第四列）记录明细表中地名/人名&班次，出现的次数。要怎么做呀。

孙旭白

请试一下代码。我发了懒，就用了原来的代码复制到下面稍加修改，一个字典用了两次，存取了两次信息。你可以这个字典只用一次，字典每一个key对应两个信息，然后用split函数拆开分别填到相应的表格。