在动态多维数组中搜索，排序，匹配-VBA

Question

在开始之前，我知道所有这些都可以通过SQL查询来完成。 随便说一下，目前正在构建一个活动目录，但是现在这就是我所拥有的：

一个Excel电子表格，包含约30k行，约25列以及项列表，其中将项＃用作第1级匹配项。 我们称其为“主”表。

作为唯一标识符的项目＃可能会出现多次，即：

项目10000在此工作表中可以出现多次。

所以我创建了一个动态数组，并使用以下命令将整个主表插入到该数组中

Sub Items()

Dim Items() As Variant

   Sheets("Master").Activate

   Items = Range("A3", "AL" & Range("a1").End(xlDown).Row)

End Sub

用户将在工作簿中的另一张纸上（“ 项目列表 ”），并输入他们需要的一些项目，如下所示： 项目列表

我需要将“主”中每个项目的所有出现次数（无论是单个值还是重复值）输出到另一张纸上的各个行。

我被困在如何在VBA中实现这一目标。 我发现很难找到这样的例子。

我想先对数组进行排序以更快地找到重复项吗？ 我应该将用户创建的列表转换为一维数组，并尝试与2d数组找到相交点吗？ 我不确定创建“ master”数组后从哪里开始。

我使用数组而不是“主”表中的一堆索引匹配或迭代循环的原因是，由于计算环境的原因，可用的处理能力/物理内存将不一致，因此数组似乎是最有效的方法。如果根本无法处理，请避免一些用户花几分钟的时间返回值。

Answer 1

您的意思是“可能会出现多次”？ 听起来像需要xto分组和求和，就像在数据库（Access或SQL Server）中一样，或者进行一些排序并选择数组中的最高/最低元素。 或者，您是说要复制数组中的某些元素/将其粘贴到新工作表中吗？？？

假设您要复制B列中值为“ x”的项目，然后将其粘贴到另一个工作表中，只需运行以下脚本即可。

Sub CopyData10()
Dim Rng As Range, cell As Range
Dim rw As Long
Set Rng = Worksheets("Sheet1").Range("B1:B10")
rw = 1
For Each cell In Rng
If LCase(cell.Value) = "x" Then
Worksheets("Sheet2").Cells(rw, "A") = cell.Offset(0, -1)
rw = rw + 1
End If
Next
End Sub