从vba中的Excel表格标题中删除重复项

Question

我正在尝试从导入的XML文件中删除Excel 2016 VBA中的多个重复项。

它适用于数组：

ActiveSheet.Range("%tableName%").RemoveDuplicates Columns:=Array(8, 10, 12, 26, 40), Header:=xlYes

但我的问题是，我并不总是知道我希望从中移除重复项的数据列是什么。 本周它可能是下周8,10,12,26,40，可能是9,10,15,26,40。

它始终是相同的表头名称：

'8 = Range("%tableName%[udsendelses_dato]")
'10 = Range("%tableName%[start_tid]")
'12 = Range("%tableName%[udsendelses_titel]")
'26 = Range("%tableName%[Titel]")
'40 = Range("%tableName%[Varighed]")

Answer 1

可能更简单，但因为它是一个Table（Excel VBA中的ListObject ），所以应该这样做：

With Sheet1.ListObjects("Table1")
    .Range.RemoveDuplicates Columns:=Array( _
        .ListColumns("udsendelses_dato").index, _
        .ListColumns("start_tid").index, _
        .ListColumns("udsendelses_titel").index, _
        .ListColumns("Titel").index, _
        .ListColumns("Varighed").index), _
        Header:=xlYes
End With