Good Evening All
I have a cell say ( A1 ) that has about 200 words in it,
I wish copy another 100+- words from Cell (A28 ), into cell ( A1), HOWEVER
some of the new group of words are already in A1, I would like to not have duplication's.
I have a search on excel help and I could not find a solution.
Peter
You can execute Text to Column or Rows on both the cells and check for duplicates afterwards you can merge the unique cell contents in a cell as required.
Hi Pete,
copy all of the words into the cell and use this macro to sort and remove duplicates:
Sub MySort2()
Dim MyArr As Variant
Dim x As Long, j As Long
Dim MyTxt As String, Temp As String
MyArr = SortArrayAtoZ(Split(ActiveCell, " "))
For x = LBound(MyArr) To UBound(MyArr)
For j = x + 1 To UBound(MyArr)
If UCase(MyArr(x)) > UCase(MyArr(j)) Then
Temp = MyArr(j)
MyArr(j) = MyArr(x)
MyArr(x) = Temp
End If
Next j
Next x
For x = LBound(MyArr) To UBound(MyArr)
For j = LBound(MyArr) To UBound(MyArr)
If x <> j Then
If UCase(MyArr(x)) = UCase(MyArr(j)) Then MyArr(j) = vbNullString
End If
Next j
If MyArr(x) <> vbNullString Then MyTxt = MyTxt & " " & MyArr(x)
Next x
ActiveCell = Trim(MyTxt)
End SubHi Justin
Any clues as to why the " Highlight Identified Word " code has stopped working please.. ???
I would need a little more information to work it out.
Justin
Is it info from me or what, just drop me a line.
Pete
Did you look at the version at this link: number 2
Review previous written codes used on another file, and rewrite for this program
Don’t have an account yet? Register yourself now and be a part of our community!