VBA - 按A列中的数据分组时输出所有可能的数据集组合

Question

我决定从头开始这个问题，以澄清问题和目标。

关于我的数据的注意事项

• 我有一个包含笔记本电脑产品数据的电子表格
• 每个产品都有一个型号和一个 SKU 值
• 许多型号都有多个与之关联的 SKU
• 当一个模型中有多个 SKU 时，每个 SKU 都会有一个新行。在这种情况下，每一行在模型字段中都有相同的值
• 某些型号可能有 4 个电池和 1 个充电器，其他型号可能有 1 个电池和 2 个充电器，其他型号可能有 1 个电池和没有充电器，反之亦然...我想说的是没有固定规则或SKU 数量之间的关系
• 有两种产品，电池和充电器
• 所有电池产品的 SKU 都以“BAT”开头
• 所有充电器产品都有以“ACA”或“ACS”开头的 SKUS
• 我可以轻松拆分两种类型的数据来帮助实现目标 - SKU、型号和类别数据可以并排放置在列中，也可以针对每种类型的产品（电池或充电器）放在单独的工作表中

在同一工作表中并排格式化的示例数据：

单独工作表中的示例数据（sheet1 = 电池，sheet2 = 充电器）：

无论使用哪种方法，模型字段都可以位于 A 列中的任何位置 - 比较两组数据时，模型字段不会位于相邻单元格中（如图所示）

我正在努力实现的目标

• 对于每个型号，我需要有一行数据，其中包含一个电池 SKU 和一个充电器 SKU
• 在为该模型输出所有组合之前，应为同一模型创建一个新行
• 每行的输出中最多应有 2 个 SKU。这应始终包含 1 个电池和 1 个充电器

期望的输出

值得一提的是，这是我将使用的数据的一个非常小的样本，完整的数据集超过 60k 行并且还在不断增长，因此解决方案需要高效。

我正在使用 excel 2007。

我是 VBA 的菜鸟，我已经购买了一些插件来尝试实现我的目标，我花了 2 天时间研究并尝试了各种方法来做到这一点，但都无济于事。

我以为我已经接近 Santosh 的这个答案了：
https://stackoverflow.com/a/19780188/1018153
这是我上一个问题的基础，但是除了在模型之间产生重复和匹配数据之外，我实际上无法以完整的形式格式化我的数据，以便该脚本无论如何都适合我，所以我最初的问题是无关紧要的.

Answer 1

下面的语句应该仍然有效，但我编写了代码来尝试解释它是如何工作的

Option Explicit 'This ensures typos in variable names are flagged

Sub MakeList()
Dim BatteryList As Range
Dim ChargerList As Range
Dim CurrentModel As String
Dim i As Long
Dim j As Long
Dim k As Long

Dim resultrange As String

'look at the lists - note I am not looking at the type - I'm going to assume
'that we can set the address correctly

'use End(xLdown) to find the last cell - that way we don't need to
'remember to change it when the number of items changes
Set BatteryList = Worksheets("Sheet1").Range("A2", Range("sheet1!B1").End(xlDown))
Set ChargerList = Worksheets("Sheet2").Range("A2", Range("Sheet2!B1").End(xlDown))
'note the use of the Sheet2! and sheet1! in the .End(xlDown) - this is required
'even though we have the Worksheets(" to set the range

i = 2 ' result row
For j = 1 To BatteryList.Rows.Count ' look at each battery row
    CurrentModel = BatteryList(j, 1)
    For k = 1 To ChargerList.Rows.Count 'then look at each charger row
        If ChargerList(k, 1) = CurrentModel Then
            'and only write a row if the battery and charger models match
            Worksheets("Sheet3").Cells(i, 1) = CurrentModel
            Worksheets("Sheet3").Cells(i, 2) = BatteryList(j, 2)
            Worksheets("Sheet3").Cells(i, 3) = ChargerList(k, 2)
            i = i + 1
        End If
    Next k
Next j

End Sub

---

上一个答案

---

查看您指出的问题中的代码，您需要存储当前模型，并且仅在模型匹配时添加可能性。当数据被写出时，这将导致大量 #N/A! ，但这应该是一个小问题。

在这一行：

 Do While j <= UBound(c1)

我会插入代码来保存当前模型

 Dim OnlyThisModel as string
 Do While j <= UBound(c1)
     OnlyThisModel=c1(j,1)

在这个领域

            Do While m <= UBound(c4)
                out(n, 1) = c1(j, 1)
                out(n, 2) = c2(k, 1)
                out(n, 3) = c3(l, 1)
                out(n, 4) = c4(m, 1)
                n = n + 1
                m = m + 1
            Loop

检查模型是否正确，不正确不要写：

            Do While m <= UBound(c4)
                if c1(j,1)=OnlyThisModel then
                    'Only write out data if model matches
                    out(n, 1) = c1(j, 1)
                    out(n, 2) = c2(k, 1)
                    out(n, 3) = c3(l, 1)
                    out(n, 4) = c4(m, 1)
                    n = n + 1
                end if
                'go to next record, regardless of if a combination was written
                m = m + 1
            Loop