Compare cells of two columns excel 2007 [Solved/Closed]

Report
-
 Rajen -
Hello,

I have two columns with identical cells and I need to find those that are not the same. For example: Column1 Cell1 = "a", Column2 Cell1 = "h". Column1 Cell2 = "h', Column2 Cell2="h", etc. I need to find which two cells are not the same. Thanks for any advice. Baruch.

3 replies

Posts
1862
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
July 30, 2015
790
in column 3 that is in C1 type or copy this formula

=IF(A1=B1,"same","not same")

copy C1 down.

see what you get.
16
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 3402 users have said thank you to us this month

in row "A" suppose some 1-100 numbers are there in cell, like in "B" some of the numbers only will appear though they are from in between 1 to 100, some numbers will not be there . My question is that the numbers which are not identical in row "A" and "B" should appear in row "c". Pl help
Thanks Venkat
Posts
1862
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
July 30, 2015
790
quote
buddi - Sep 17, 2013 11:19AM
in row "A" suppose some 1-100 numbers are there in cell, like in "B" some of the numbers only will appear though they are from in between 1 to 100, some numbers will not be there . My question is that the numbers which are not identical in row "A" and "B" should appear in row "c". Pl help
Link (#3)unquote

is this a new query by another person. it is better if the new querries are not introudced in anothers"s thread. also small extract of data is given and also whata resulot is expected.

suppose the first two rows are like this
1 2 3 4 5 6 7 8 9 10
1 3 5 7 9

try this macro

Sub tests()
Dim r As Range, c As Range, cfind As Range, r2 As Range
Set r = Range(Range("A1"), Range("A1").End(xlToRight))
Set r2 = Range(Range("A2"), Range("A2").End(xlToRight))
Range("A3").EntireRow.Delete
For Each c In r

Set cfind = r2.Cells.Find(what:=c.Value, lookat:=xlWhole)
If cfind Is Nothing Then
Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1) = c

End If
Next c


End Sub