Esto debería tardar unos segundos, si no es instantáneo:
Option Explicit
Sub btnValidar()
'Dim UltCol As Integer 'Siempre Long, Excel trunca los long cuando declaras un integer
'Dim ultimaFila, uultimaFila, igual As Long 'estás declarando igual como long, las otras como variant
'Creamos dos arrays, uno con los datos de la hoja Base Original, y el otro con los de la Externa
'Sólo cogemos la columna A ya que ahí están los datos a comprobar.
Dim arrOriginal As Variant: arrOriginal = CargaArray(ThisWorkbook.Sheets("Base Original"))
Dim arrExterna As Variant: arrExterna = CargaArray(ThisWorkbook.Sheets("Externa"))
Dim CuentasOriginales As Object: Set CuentasOriginales = CargaCuentasOriginales(arrOriginal)
Dim i As Long
Dim igual As Long
'recorremos el array de las externas comprobando si existen en la original
'si una cuenta está 3 veces, la contará 3 veces.
For i = 2 To UBound(arrExterna)
If CuentasOriginales.Exists(arrExterna(i, 1)) Then igual = igual + 1
Next i
MsgBox "Cantidad de cuentas iguales = " & igual
Erase arrOriginal
Erase arrExterna
Set CuentasOriginales = Nothing
End Sub
Private Function CargaArray(ws As Worksheet) As Variant
'Esta funcion va a devolver un array 2D de la columna A
'Depende de la hoja que le des como parámetro
With ws
Dim ultimaFila As Long: ultimaFila = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim arr As Variant: arr = .Range("A1:A" & ultimaFila).Value2
End With
CargaArray = arr
End Function
Private Function CargaCuentasOriginales(arr As Variant) As Object
'Esta función te va a devolver un objeto de clase Diccionario,
'los objetos de diccionario tienen la propiedad .Exists que te permite
'saber si existe una llave dentro del mismo de forma rápida.
Dim Dict As Object: Set Dict = CreateObject("Scripting.Dictionary")
Dim i As Long
For i = 2 To UBound(arr) 'empiezo por 2 porque entiendo que en la 1 tienes encabezados
'Para evitar errores ignoro las cuentas duplicadas en la hoja Originales.
If Not Dict.Exists(arr(i, 1)) Then Dict.Add arr(i, 1), 1
Next i
Set CargaCuentasOriginales = Dict
Set Dict = Nothing
End Function
CONTAR.SI
? pones la fórmula en el libro que quieras y cuentas cuántas veces aparece el registro en la otra hoja. no necesitas hacer bucles ni nada.