Counting multiple cells with different text (Mismatch)

[JODomingos]

Hi Friends.
Can you help me to create a macro to count cells that are different between two rows.

For instance:
In column B I have multiple cells that are duplicated, I would like to compair all the duplicates for every column and get the number of mismatch. Yellow cells should be counted as mismatch.

I would like consider only the strings ( AA , CC , GG , TT).

 

[Eric W]

Not a macro, but here's a formula that seems to work:

Book1
	A	B	C	D	E	F	G
1			10K10207	10K00905	10K00906	10K13207
2			1	1	1	1
3		Name	715140	715833	793186	1022873
4		942	AA	TT	GG	AA	2
5		942	GG	TT	GG	GG	2
6		991	AA	TT	GG	GG	1
7		991	TT	GT	AG	CG	1
8		!17IICC37018	AA	TT	GG	CC	1
9		!17IICC37018	AA	TT	GG	GG	1
10		!17IITT13034	AA	CC	GG	CC	1
11		!17IITT13034	AA	TT	GG	CC	1
Sheet9

Cell Formulas
Range	Formula
G4:G11	G4	=SUMPRODUCT(--(MMULT({1,1,1,1},SIGN(COUNTIFS($B:$B,$B4,OFFSET(C:C,0,COLUMN(C:F)-COLUMN(C:C)),{"AA";"CC";"GG";"TT"})))>1))

 

[Ezguy4u]

You can never have too may solutions. Now I haven't found a combination that doesn't work but if you do let us know.

Sub Unique1()

Dim row1 As Long
Dim col1 As Long
Dim LastRow As Long
Dim cont1

cont1 = 0

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

For row1 = 4 To LastRow Step 2

    For col1 = 3 To 6

        If Not (Cells(row1, col1).Value Like Cells(row1 + 1, col1).Value) Then

            If ((Cells(row1, col1) = "AA" Or Cells(row1, col1) = "CC" Or Cells(row1, col1) = "GG" Or Cells(row1, col1) = "TT") _
            And (Cells(row1 + 1, col1) = "AA" Or Cells(row1 + 1, col1) = "CC" Or Cells(row1 + 1, col1) = "GG" Or Cells(row1 + 1, col1) = "TT")) Then

            cont1 = cont1 + 1
            End If

        End If

    Next col1
Cells(row1, col1) = cont1
cont1 = 0
Next row1

Range("B2").Select
End Sub

20-09-25 unique Rev A.xlsm
	A	B	C	D	E	F	G	H	I	J	K
1			10K10207	10K00905	10K00906	10K13207
2			1	1	1	1			strings ( AA , CC , GG , TT).
3		Name	715140	715833	793186	1022873	Yellow Cells
4		942	AA	TT	GG	AA	2
5		942	GG	TT	GG	GG
6		991	AA	TT	GG	GG	1
7		991	TT	GT	GG	CG
8		!17IICC37018	AA	TT	GG	CC	1
9		!17IICC37018	AA	TT	GG	GG
10		!17IITT13034	AA	CC	GG	CC	1
11		!17IITT13034	AA	TT	GG	CC
Unique Count