如何根据条件从VBA中的某个范围提取唯一值

Question

我想根据每个条件的范围创建一个唯一值列表。

我在工作表“ RawData”列“ AG”中有一个例外列表，我希望将这些异常提取到工作表“事件”列“ I”中。

条件是工作表“ RawData”列“ O”中的国家（地区）代码。

因此，总而言之，我希望从工作表RawData中提取“ I”列（工作表事件）中每个国家/地区列出的例外情况，并在C列（工作表事件中）中列出国家/地区代码。

到目前为止，我有以下内容：

Sub Extract_Unique()

Dim Rng As Range
Dim destrng As Range
Set Rng = Worksheets("RawData").Range("AG2:AG15000")

Set destrng = Worksheets("Incidents").Range("I2")

Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Rng, _
CopyToRange:=destrng, unique:=True


End Sub

有人可以帮我吗？