小编Tan*_*ley的帖子

我得到了总列数，并尝试将其附加到字符串中，根据列数，它是 1,2,3,4,5。

Sub DeleteHighlightedRecords()

 numofCol = ""

     For i = 1 To lcol

        numofCol = numofCol & "," & i

     Next i

 numofCol = Mid(numofCol, 2)

ThisWorkbook.Worksheets(1).Cells.RemoveDuplicates Columns:=Array(numofCol), Header:=xlNo
End Sub

我上面的代码将匹配我放置在 Array() 中的组合，然后删除重复项，是吗？如果我错了，请纠正我，但是我收到了应用程序定义的错误。

如何将动态列数设置到 Array() 中？