Previous Topic Next Topic

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.

Related:

3 replies

Answer 1 / 3
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
 804
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
Report

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
Report

Thanks Venkat
0
Answer 2 / 3

good one
0
Answer 3 / 3
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
 804
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
Ask a question