Compare Rows in 2 columns and count those that differ

Try
Option Explicit

Sub count_differences()
    Dim rRng   As Range
    Dim rCl    As Range
    Dim lCnt   As Long

    Set rRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    lCnt = 0

    For Each rCl In rRng
        If rCl.Value = rCl.Offset(0, 1).Value Then lCnt = lCnt + 1
    Next rCl
    MsgBox lCnt & " matches found"


End Sub

Originally Posted by Tim3057

Thanks... but I'm just after a single fomula to put in a cell on the spreadsheet.. I'm not trying to put it in a program - am I in the wrong forum?

Hi,

try

=COUNTA(A:A)-SUMPRODUCT(--(INDIRECT("A1:A"&COUNTA(A:A))=INDIRECT("B1:B"&COUNTA(A:A))))

hth
---
added,

just read the original post, and the wording does not agree with the data sample given.

What is meant by ' (that are not side by side)' in relation to where are they???
---