使用高级过滤器的列和相关列的唯一列表

Question

我目前正在使用此代码从列中检索所有唯一值。

Sub FindUniqueValues(SourceRange As Range, TargetCell As Range)
    SourceRange.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=TargetCell, Unique:=True
End Sub

它可以获取唯一项目列表，但是如何修改此代码以便它还会提取相关列？

谢谢！