從Excel中的表格標題中刪除重複項vba

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