formula to return next different value within column

[yamapinews]

Such as
Col A
a
a
b
c
c
e
k
k
e

I need result in column B (duplicate value is not my concern, just jump to next different value)
ColB:
a
b
c
e
k
e

 

[Takae]

Hope this helps.

Sub test1()
Dim Dic, i As Long, LR As Long
Dim buf As String, keys
Set Dic = CreateObject("scripting.Dictionary")
On Error Resume Next
LR = cells(Rows.count, 1).End(xlUp).Row
For i = 1 To LR
    buf = cells(i, 2).Value
    Dic.Add buf, buf
Next
keys = Dic.keys
For i = 0 To Dic.count - 1
    cells(i + 2, 2) = keys(i)
Next
Set Dic = Nothing
End Sub

Formula!
C2 = =IF(COUNTIF($A$2:A2,A2)>1,C1,C1+1)
B2= =IFERROR(VLOOKUP(ROW()-1,IF({TRUE,FALSE},$C$1:$C$10,$A$1:$A$10),2,FALSE),"")

 

[Mike Szczesny]

Can you use something like this. This formula captures the unique values in a range. Place a header Unique in C1. Place formula in C2. You need use absolute reference in C1. I enclosed the =iferror part to remove error messages. Use Cntrl+Shift+Enter, then copy down. Here is the formula [TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"] =IFERROR(INDEX($A$1:$A$9,MATCH(0,COUNTIF($C$1:C1,$A$1:$A$9),0)), " ")

[TABLE="width: 192"]
<tbody>[TR]
[TD="width: 64"]a[/TD]
[TD="width: 64"][/TD]
[TD="width: 64"]Unique[/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD][/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]b[/TD]
[TD][/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]c[/TD]
[TD][/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD]c[/TD]
[TD][/TD]
[TD]e[/TD]
[/TR]
[TR]
[TD]e[/TD]
[TD][/TD]
[TD]k[/TD]
[/TR]
[TR]
[TD]k[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]k[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]e[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]