Удаление дубликатов полного значения ячейки из нескольких столбцов

Пользователь

Сообщений: 170 Регистрация: 1 Янв 1970

14 Мар 2018 13:58:13

Здравствуйте. Уважаемые!
Уже есть похожая тема. правда она в архиве и решение по ней, там же вложенный файл:
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=25951&am...
Однако, проблема в том, что остаются значения в последнем просматриваемом столбце, а нужно, чтобы уникальное значение осталось в 1 столбце.
В какой строке - не имеет значения. Можно. конечно. написать макрос. меняющий местами столбцы. но может это можно сделать попроще?
Заранее, спасибо

Казанский

Пользователь

Сообщений: 7851 Регистрация: 11 Янв 2013

14 Мар 2018 16:08:22

Sobes,

Код

Sub So()
Dim v(), i&, j&, cl As New Collection
  On Error Resume Next
  With ActiveSheet.UsedRange
    v = .Value
    For i = 1 To UBound(v)
      For j = 1 To UBound(v, 2)
        If Not IsEmpty(v(i, j)) Then
          cl.Add 0, CStr(v(i, j))
          If Err Then v(i, j) = Empty: Err.Clear
        End If
    Next j, i
    .Value = v
  End With
End Sub

Sobes Пользователь Сообщений: 170 Регистрация: 1 Янв 1970	#3 14 Мар 2018 16:43:42 Казанский, Спасибо Вам ОГРОМНОЕ! Всё работает так. как надо!

Читают тему (гостей: 1)

Логин:
Пароль:
	Запомнить меня на этом компьютере

Забыли свой пароль?
Регистрация