Es muy común que al comparar rangos necesitamos saber las diferencias entre éstos, aquí les dejo una fórmula (UDF) que hace el trabajo de una forma fácil.
Descarga el documento adjunto y verás la fácil aplicación de ésta fórmula matricial:
Descarga el documento adjunto y verás la fácil aplicación de ésta fórmula matricial:
'****************************** '
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com '
'****************************** '
Option Explicit
Function ListaDiferencias(a As Range, b As Range)
Dim temp(), i&, k&
ReDim temp(1 To a.Count)
k = 0
For i = 1 To a.Count
If IsError(Application.Match(a(i), b, 0)) And _
a(i) <> "" And a(i) <> 0 Then
k = k + 1
temp(k) = a(i)
End If
Next i
ListaDiferencias = Application.Transpose(temp)
End Function
Carrito:




