I hope someone will be able to help me out with this problem and would like to thank all who are willing to help in advance.
![kutools for excel reviews kutools for excel reviews](https://cdn.extendoffice.com/images/stories/shot-kutools-excel/kutools-for-excel-23.00/shot-kutools-tab_02.png)
Jason is driving there_ Jason is walking there So in this instance I want the macro to work to were it will highlight and turn the text red for the word there because it is present in both columns regardless of whats in between them. Kutools For Excel Saves A Lot Of Your Time While Working On Excel Brief Introduction If you are fed up exploring batches of white sheets and cells, or baffled by renaming dozens of workbooks individually or stomaching from continual performances, specially while addressing graphs, tables, report card and so forth, Kutools for Excel is what you require right now. What i want it to do is basically search of every word in column A (or whatever column you select) and not just turn the text up to the point that they are similar. If you compare A to B then it will highlight that the same words "Jason is" and it will turn the text red.
![kutools for excel reviews kutools for excel reviews](https://www.saashub.com/images/app/screenshots/64/c25c584e5fe8/landing-medium.jpg)
Jason is driving there_Jason is walking there What this will do is lets say you have this statement in column A and column B XCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed XCell2.Characters(1, J - 1).Font.Color = vbRed If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For XDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
![kutools for excel reviews kutools for excel reviews](https://www.saashub.com/images/app/screenshots/29/3144f161d4bd/landing-medium.jpg)
MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel" Ti kutools for excel tin ích add-in h tr Office giúp bn thao tác nhng công thc, hay chc nng phc tp khác nhau ch vi 1 click chut trong Excel Hn 300 tính nng và chc nng nâng cao mnh m cho Excel. Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "",, ,, , 8) MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel" Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt,, ,, , 8)
#Kutools for excel reviews code#
I found this code online guys and I need help updating it.