vbaのExcelでテーブルヘッダーから重複を削除

Question

インポートされたXMLファイルからExcel 2016 VBAで複数の重複を削除しようとしています。

それは配列で動作します：

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

しかし、私の問題は、私はいつも私があるから重複を削除したい列の私のデータを知らないということです。今週それは9、10、15、26、40

かもしれない8、10、12、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

単純かもしれないが、それは表（エクセル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