◆◆◆◆求高手指教：跨表审核并返回结果

yihaochu

数据分别在不同的表中，需要实现一下几个审核：
账页数据表中，编码以14开头的、金额不足1000元
账页数据表中，编码以2406开头的、人码是99的
问卷数据中，就业不为1或7的人，在账页数据中编码以22开头的金额>0

每审核一项，将审核结果按照表1的样式列出来
用什么方式审核更方便、更快？  高级筛选？数组？字典？

写了半天没写明白

yihaochu

Sub 第三条审核()
    t = Timer
    Set d = CreateObject("scripting.dictionary")
    arr = Sheet2.[a1].CurrentRegion
    arr1 = Sheet3.[a1].CurrentRegion
   
    For i = 1 To UBound(arr)
        If arr(i, 3) <> 1 and arr(i, 3) <> 7 Then
            For n = 1 To UBound(arr1)
                If arr1(n, 1) = arr(i, 1) And arr1(n, 8) = arr(i, 2) And arr1(n, 4) Like "22*" Then
                    m = m + 1
                    Sheet1.Cells(m, 1) = arr1(n, 1)
                    Sheet1.Cells(m, 2) = arr1(n, 2)
                    Sheet1.Cells(m, 3) = arr1(n, 3)
                    Sheet1.Cells(m, 4) = arr(i, 2)
                    Sheet1.Cells(m, 5) = arr(i, 3)
                    Sheet1.Cells(m, 6) = arr1(n, 4)
                    Sheet1.Cells(m, 7) = arr1(n, 6)
                End If
            Next
        End If
    Next
   
    MsgBox "{汇总计时：" & Timer - t & "秒"
End Sub

自己编的第三条的审核，表中数据只是一部分，实际问卷数据有1000多条，账页数据有10万条以上

yihaochu

数据量大了 审核的速度就慢  全部审核我用了90秒

yihaochu

希望哪位大师能帮帮我

yihaochu

自己编的第三条的审核，表中数据只是一部分，实际问卷数据有1000多条，账页数据有10万条以上

yihaochu

不知道有没有谁能尽快回复我？

yihaochu

不知道有没有谁能尽快回复我？

yihaochu

可不能沉呀

不知道为什么

yihaochu 发表于 2019-3-18 15:06
不知道有没有谁能尽快回复我？

不要觉得是没人愿意帮你，是你自己的需求说的不清晰，模拟的结果和你说的需求看上去就不对。