Страницы: 1
RSS
Получение столбца уникальных значений из таблицы данных
 
Добрый день! Подскажите, пожалуйста, как получить столбец уникальных значений из данной таблицы данных?
 
Евгений И.,
вот здесь есть ответ:
https://www.planetaexcel.ru/techniques/14/103/
 
Спасибо))
 
Евгений И.,
Код
Sub ssssss()
Dim cell As Range, rng As Range
Dim oMyCol As New Collection
Dim i As Long
Set rng = Worksheets(1).Range("A1:AZ264")
    For Each cell In rng
        On Error Resume Next
        If cell <> "" Then oMyCol.Add cell.Value, CStr(cell.Value)
    Next cell
    For i = 1 To oMyCol.Count
        Worksheets(2).Cells(i, 1) = oMyCol(i)
    Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1
Наверх