字典怎么玩？A列B列数据比较

一把小刀闯天下

'再练习一个，不用字典。效率应该也是可以的，，，

Option Explicit

Sub test()
  Dim arr, m(4), p(2), i, j
  arr = Range("a2:b" & ActiveSheet.UsedRange.Rows.Count).Value
  ReDim brr(1 To UBound(arr, 1) * 2 + 1, 1 To 2), crr(1 To UBound(brr, 1), 1 To 4)
  For j = 1 To 2
    For i = 1 To UBound(arr, 1)
      If Len(arr(i, j)) > 0 Then m(0) = m(0) + 1: brr(m(0), 1) = arr(i, j): brr(m(0), 2) = j
    Next
  Next
  Call qsort(brr, 1, m(0), 1, 2, 1)
  For i = 1 To m(0)
    p(brr(i, 2)) = 1
    If brr(i, 1) <> brr(i + 1, 1) Then
      If p(1) = 1 And p(2) = 0 Then
        p(1) = 1
      ElseIf p(1) = 0 And p(2) = 1 Then
        p(1) = 2
      Else
        p(1) = 3
      End If
      m(p(1)) = m(p(1)) + 1: crr(m(p(1)), p(1)) = brr(i, 1)
      m(4) = m(4) + 1: crr(m(4), 4) = brr(i, 1)
      p(1) = 0: p(2) = 0
    End If
  Next
  [r2].Resize(UBound(crr, 1), 4) = crr
End Sub

Function qsort(arr, first, last, left, right, key)
  Dim i As Long, j As Long, k As Long, x, t
  i = first: j = last: x = arr((first + last) \ 2, key)
  While i <= j
    While arr(i, key) < x: i = i + 1: Wend
    While x < arr(j, key): j = j - 1: Wend
    If i <= j Then
      For k = left To right
        t = arr(i, k): arr(i, k) = arr(j, k): arr(j, k) = t
      Next
      i = i + 1: j = j - 1
    End If
  Wend
  If first < j Then qsort arr, first, j, left, right, key
  If i < last Then qsort arr, i, last, left, right, key
End Function

前进者

标记一下，以便学习备用!

micch

翻篇，今天想重写一次字典AB比对，再看一遍，翻出来共同学习

joy.008@163.com

一把小刀闯天下 发表于 2021-5-12 14:58
'我也来练习一下，单字典，，，

Option Explicit

'我也来练习一下，单字典，，，

Option Explicit

Sub test()
  Dim arr, m(4), p(2), i, j, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("a2:b" & ActiveSheet.UsedRange.Rows.Count).Value
  ReDim brr(1 To UBound(arr, 1) * 2, 1 To 2), crr(1 To UBound(brr, 1), 1 To 4)
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      If Len(arr(i, j)) > 0 Then
**************
这个arr(i, j)构架的不合理吧?

micch

A和B两个数组，比对后返回结果，可能需要得到的结果有：
1，两个数组合集（相同项合并，并统计重复次数）
2，两个数组合集（相同项合并，分别统计每一个元素在A和B中的数量（应对A或B本身内部有重复的情况））
3，两个数组合集（重复项不合并，单独列出（注明所属源数组），有重复情况可统计重复次数）
4，返回A有B无项
5，返回A无B有项
6，返回A B交集（有重复情况，注明分别在A B中重复次数）
7....（还没想好需要返回其他什么结果）

gwjkkkkk

经典案例学习一下。。。

panshuying1973

留个脚印学习

·遁去的一·

请教一下，面对百万行数据如何提高处理速度

吴中泉

·遁去的一· 发表于 2023-6-14 21:06
请教一下，面对百万行数据如何提高处理速度

我认为不要老是在百万级数据量上纠结，因为VBA本身就是一个脚本语言，用于处理一些小数据量的，灵活方便，那此大数据分析处理是数据库等中大型软件干的事。其实学习数据库的一般应用也不难（很多年前接触过，长久不用又忘了，我想再学可能只要几天工夫）

·遁去的一·

吴中泉 发表于 2023-6-14 21:16
我认为不要老是在百万级数据量上纠结，因为VBA本身就是一个脚本语言，用于处理一些小数据量的，灵活方便 ...

收到，没事研究一下