VBS中如何根据Excel工作表列数动态生成去重数组？

要实现根据工作表列数自动生成去重列数组，直接按以下步骤修改你的脚本即可：

1. 获取工作表总列数
   通过UsedRange.Columns.Count获取当前已用区域的列数：

   Dim colCount
   colCount = objSheet.UsedRange.Columns.Count
   

2. 生成动态列索引数组
   VBS数组为0基索引，而Excel列序号是1基，所以循环生成从1到总列数的数组：

   Dim dupColumns()
   If colCount > 0 Then
       ReDim dupColumns(colCount - 1)
       For i = 0 To colCount - 1
           dupColumns(i) = i + 1
       Next
   End If
   

3. 执行去重操作
   将动态生成的数组传入RemoveDuplicates方法：

   If colCount > 0 Then
       objSheet.UsedRange.RemoveDuplicates dupColumns
   End If
   

把上述代码整合到你的现有脚本中，就能自动根据当前工作表的列数，对所有列内容完全重复的行进行移除。

内容的提问来源于stack exchange，提问作者oso_togari