I've tried requesting help with this before but have received no helpful responses.
I need a Macro/VBA that moves any word in red from column A into column C as a list.
However if the same word is highlighted more than once in column A, I only want that word to go into column C once (no duplicates), unless its a string.
my data is as follows
I've tried creating a vba for this (below) but it doesn't work how i would like it to...
Sub copy_red()
Dim LastRow As Long, x As Long, y As Long, txt1 As String, txt As String
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To LastRow
txt1 = ""
txt = Cells(x, 1)
If txt <> "" Then
For y = Len(txt) To 1 Step -1
If Cells(x, 1).Characters(Start:=y, Length:=1).Font.Color = 255 Then
txt1 = Cells(x, 1).Characters(Start:=y, Length:=1).Text & txt1
End If
Next y
Cells(x, 3) = txt1
End If
Next x
End Sub
The result i get is as follows:
what i would like to achieve is the following:
Any help would really be appreciated as I wouldn't know where to begin...
Thanks