fuzzy lookup amended

[Flyingmeatball]

I want to run a fuzzy lookup, but slightly adjusted way. I have many different accounting entries that are sorted by account. What I would like to do is search if anything similar to a given item has been placed in another account by accident. For example, in column A i have accounts A through D. In column A i have 3 entries for |computer hardware|, and in column B I have 1 entry for |computer hardware upgrades". I would like to fuzzy/vlookup to only return those that are NOT in the same account. Is there an easy way to do this? I have thousands of entries. Thanks!

 

[venkat1926]

I have given you a trivial sample sheet (sheet1).
copy this sheet in an empty workbooks calling the sheet "sheet1"
now run this macro on this and see sheet2 column A. If thisis what you want
you can use the macro to your file (keep original file safe)

the macro is

Sub testone()
Dim rnga As Range, rngb As Range
Dim ca As Range, cb As Range
Worksheets("sheet1").Activate
Set rnga = Range(Range("a1"), Cells(Rows.Count, "a").End(xlUp))
Set rngb = Range(Range("b1"), Cells(Rows.Count, "b").End(xlUp))
For Each cb In rngb
For Each ca In rnga
If WorksheetFunction.CountIf(cb, "*" & ca.Value & "*") = 0 Then
Worksheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0) = cb

End If
Next
Next
Worksheets("sheet2").Activate
Set rnga = Range(Range("a2"), Cells(Rows.Count, "A").End(xlUp))
'MsgBox rnga.Address
rnga.AdvancedFilter action:=xlFilterCopy, unique:=True, copytorange:=Range("D1")
Columns("a:c").Delete
End Sub

the sheet is as follows

Book2
	A	B	C	D
1	a	q
2	s	w
3	computerhardware	e
4	d	kkkk
5	f	r
6	computerhardware	t
7	g	computerhardwareupgrades
8	h	y
9	j	u
10	computerhardware	llllll
11	k	i
12	l	o
13
14
Sheet1