Compare cells of two columns excel 2007

Solved/Closed
Baruch - Nov 15, 2010 at 03:27 PM
 Rajen - Oct 31, 2013 at 02:10 PM
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

venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 810
Nov 15, 2010 at 09:12 PM
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
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
0
Thanks Venkat
0
good one
0
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 810
Sep 18, 2013 at 01:31 AM
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
0