Function COUNTALIKE(Target As Range)

colcount = Target.Columns.Count

COUNTALIKE = 0
For i = colcount To 1 Step -1
If Target(1, i) = Target(2, i) Then
COUNTALIKE = COUNTALIKE + 1
Else
Exit For
End If
Next i
End Function


"Jan Kronsell" wrote:

I column A to J, row 1 and two I have numbers between 1 and 9.

It might look like this

1 1 1 2 3 1 1 1 1 1
1 1 1 1 8 2 1 1 1 1

What I need is a function that compares the two rows, like this:

If J1 and J2 contains the same number, it must be counted.
Next it should test i I1 and I2 contaisn the same number. I n that case it
should be addes to the counter.
The code should go on like this until it meets to numbers, thatr are not the
same. Then it should stop counting and return the resulat of the counter.

In other words it shold compare the numbers in row 1 and 2, going backwatrds
from column J to column A. The first time two numbers are not the same, it
should stop, and return the number counted.

Maby the function could be entered like =COUNTALIKE(A1:J2) and the above
caee the result should be 4 as there are four numbers, that are the same,
before the that are not.

Jan