MyTetra Share
Делитесь знаниями!
DelDub
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Excel - Range

Sub DelDub()

Dim ColsArr(), i&

With ActiveSheet.ListObjects(1)

ReDim ColsArr(.ListColumns.Count - 1)

For i = 1 To .ListColumns.Count

ColsArr(i - 1) = i

Next

.Range.RemoveDuplicates (ColsArr), xlYes

End With

End Sub

 
MyTetra Share v.0.53
Яндекс индекс цитирования