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