Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удаление дубликатов полного значения ячейки из нескольких столбцов
 
Здравствуйте. Уважаемые!
Уже есть похожая тема. правда она в архиве и решение по ней, там же вложенный файл:
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=25951&am...
Однако, проблема в том, что остаются значения в последнем просматриваемом столбце, а нужно, чтобы уникальное значение осталось в 1 столбце.
В какой строке - не имеет значения. Можно. конечно. написать макрос. меняющий местами столбцы. но может это можно сделать попроще?
Заранее, спасибо
 
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
 
Казанский,
Спасибо Вам ОГРОМНОЕ!
Всё работает так. как надо!
Страницы: 1
Читают тему (гостей: 1)
Наверх