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

我试图从导入的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