vba - 使用 VBA 根据相似值对 Excel 行进行分组

Question

我有一个report.xlsx文件，其中包含来自其他 2 个 Excel 工作簿的数据，这些工作簿是基于一些唯一值合并的。Pool_RAM列具有来自的数据file1.xlsx，Pool_HDD列具有来自 的数据file2.xlsx。这两列都包含一些重复的值。现在我想根据相似的值对行进行分组，并按照下面提到的格式输入。

Report.xlsx Actual Data

我希望数据采用以下格式。

Expected Format

如果您需要任何其他信息，请告诉我。

Answer 1

试试这个宏并根据您的需要进行调整：

Sub GroupMyData()
'Assuming the data source is in column F and G, from row 2 to 1000
'The result will be put in column K and L
'part1: filter to unique values, put in column J temporarily
    Range("F2:F1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J2" _
        ), Unique:=True

'part2: fill the data
    Range("K1") = Range("F1")
    Range("L1") = Range("G1")
    Range("J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    n = Selection.Count
    Range("K2").Select
    ck = 2
    cl = 2
    For i = 1 To n
      txt = Range("J" & (i + 1))
      numf = WorksheetFunction.CountIf(Range("F2:F1000"), txt)
      For j = 1 To numf
        Range("K" & ck) = txt
        ck = ck + 1
      Next
      numg = WorksheetFunction.CountIf(Range("G2:G1000"), txt)
      For j = 1 To numg
        Range("L" & cl) = txt
        cl = cl + 1
      Next
      If (ck > cl) Then
        cl = ck
      Else
        ck = cl
      End If
      ck = ck + 1
      cl = cl + 1
    Next
'part 3: delete the temporary data
    Range("J2:J1000").Select
    Selection.ClearContents
    Range("K2").Select

End Sub