excel - 在 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

可能更简单，但由于它是一个表(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