Excel 2007 o Excel 2010
Ver Más instrucciones
1
clic en la ficha " Developer " en Excel y haga clic en "Visual Basic ".
2
Haga clic en " Insertar ". Haga clic en " módulos" para abrir una nueva ventana del módulo
3
cortar y pegar el siguiente código en la ventana : .
Sub CompareColumns ( ) guía
Columna1 As Range
Columna2 As Range
' Preguntar al usuario durante el primer rango de la columna de comparar ...
' ---------- ------------------------------------------
Set Columna1 = Application.InputBox ( " Seleccionar Primera columna de comparación " , Type : = 8 ) Check
' que la gama se han proporcionado consta de sólo 1 columna ...
Si Column1.Columns . Recuento > 1 Entonces
hacer hasta Column1.Columns.Count = 1
MsgBox " sólo se puede seleccionar la columna 1 "
Set Columna1 = Application.InputBox ( " Seleccione Primera columna de comparación " , Type : = 8 )
Loop
End If
' Preguntar al usuario para el segundo rango de la columna de comparar ...
< p > ' ----------------------------------------------- -----
Establecer la columna 2 = Application.InputBox ( " Select Second columna de comparación " , Type : = 8 ) Check
' que la gama se han proporcionado consta de sólo 1 columna ...
Si Column2.Columns.Count > 1 Entonces
Do Until Column2.Columns.Count = 1
MsgBox " sólo se puede seleccionar la columna 1 "
Set columna 2 = Application.InputBox ( " Select Second columna de comparación " , Type : = 8 )
Loop
End If
' Check tanto la columna rangos son del mismo tamaño ...
' ----------------------------------- ----------
Si Column2.Rows.Count < > Column1.Rows.Count Entonces
¿ Hasta Column2.Rows.Count = Column1.Rows . Cuente
MsgBox " la segunda columna debe ser del mismo tamaño que la primera"
Set columna 2 = Application.InputBox ( " Select Second columna de comparación " , Type : = 8 )
Loop
End If
' Si las columnas enteras han sido seleccionadas (por ejemplo, $ AA) , limitar el tamaño de área de distribución a la Red
' UsedRange de la hoja activa. Esto detiene la rutina de control de la totalidad Column1.Rows.Count = 65536 Después
Set Columna1 = Range ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ))
Set columna 2 = Range ( Column2.Cells ( 1 ) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ))
End If
'Realiza las células de comparación y establecer que son los mismos que
amarilla
' ---------------------------------------------- ------------------
intCell Dim As Long
Para intCell = 1 Para Column1.Rows.Count
Si Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Entonces Column1.Cells
inicio ( intCell ) . Interior.Color = vbYellow
Column2.Cells ( intCell ) . Interior.Color = vbYellow
End If
Siguiente
End Sub
4
Press "F5 " para ejecutar la rutina y comparar las columnas.