本人想用一段sql代码实现如附件中excel文件中，F至I列的结果

VBAfzbxiaobai

各位大神好，本人想用一段sql代码实现如附件中excel文件中，F至I列的结果，数据源是A至D列，文本文件是参考代码

清风竹-

请看附件。

VBAfzbxiaobai

清风竹- 发表于 2021-2-20 08:50
请看附件。

大神晚上好，能发我代码研究下吗？谢谢

清风竹-

VBAfzbxiaobai 发表于 2021-2-20 21:19
大神晚上好，能发我代码研究下吗？谢谢

Sub 整理数据()
Dim d As Object, arr, brr, i%, ss$, n%
arr = Sheet1.Range(Sheet1.[a1], Sheet1.[d65536].End(3))
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 4)
For i = 2 To UBound(arr)
    ss = arr(i, 1) & arr(i, 2)
    If Not d.Exists(ss) Then
        n = n + 1
        d.Add ss, n
        brr(n, 1) = arr(i, 1): brr(n, 2) = arr(i, 2):
        If arr(i, 4) >= 500 Then brr(n, 3) = 1
        If arr(i, 4) >= 10000 Then brr(n, 4) = 1
    Else
        If arr(i, 4) >= 500 Then brr(d(ss), 3) = brr(d(ss), 3) + 1
        If arr(i, 4) >= 10000 Then brr(d(ss), 4) = brr(d(ss), 4) + 1
    End If
Next
   Range("F2:I" & Sheet1.[f65536].End(3).Row).ClearContents
  [f2].Resize(n, 4) = brr
End Sub

代码就在附件的文件中呀。