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

问题描述：

我试图从导入的XML文件中删除Excel 2016 VBA中的多个重复项。从Excel中的表格标题中删除重复项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]")

你想删除整列，如果它具有相同的标题作为已经是你的文档中的一些列？那是你在问什么？ – Universus

可能要编辑您的问题，以便您提出问题 –

答

有可能是简单的，但因为它是一个表（在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

不错。很好的使用列索引属性。 :) – sktneer

非常感谢你！工作！ – toby

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

相关推荐