从数据集中提取唯一的产品 ID 和相应的其他列值到新工作表

我有一个宏，可以从“A 列”中提取唯一数据，但我也希望从 A 列中的这些唯一值的其他列中获取相应的值，并且我希望它们位于不同的电子表格中。我尝试在代码中使用 Worksheet Vlookup 函数，但对于超过 70,000 行和 42 列的数据集来说，它花费的时间太长。代码 -

Sub UniqueProductDetails()

Dim ws1 as worksheet
Dim ws2 as worksheet

Ws1 = Worksheets(“Source”)
Ws2 = Worksheets(“Destination”)

SRow = Ws1.range(“A” & Rows.count).End(xlUp).Row 

Ws1.Range(“A1:A” & SRow).AdvancedFilter Action:=xlFilterCopy, Unique=True, copytorange:=ws2.range(“A1”) 

'This code provides unique column A values in the Destination sheet

End Sub()  

Data and Output is in this format

您也可以通过公式实现这一点：

=LET(newColumns,INDEX(tblData,SEQUENCE(ROWS(tblData)),{1,2,3,7,4}),
     UNIQUE(newColumns))

newColumns返回具有新列顺序的表

然后您可以返回唯一值。

和...一起VSTACK您也可以将标题列添加到输出中（我还没有该版本）

通过 VBA 使用公式：

ub writeUniqueReorderedList()

Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets("Destination")

With ws2
    'ColumnHeaders
    .Range("A1").Formula2 = "=INDEX(tblData[#Headers],1,{1,2,3,7,4})"
    .Range("A2").Formula2 = "=LET(newColumns,INDEX(tblData,SEQUENCE(ROWS(tblData)),{1,2,3,7,4}), " & _
            "UNIQUE(newColumns))"
    
    With .Range("A1").CurrentRegion
        .Value = .Value
    End With
End With
    
End Sub