Previous Topic Next Topic

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

Answer 1 / 3
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
buddi
Sep 17, 2013 at 11:19 AM
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
Rajen
Oct 31, 2013 at 02:10 PM
Thanks Venkat
0
Answer 2 / 3
asas
Jul 23, 2013 at 08:32 AM
good one
0
Answer 3 / 3
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