Macro para combinar celdas si son iguales

Les tengo una pregunta, me gustaría saber si alguien x ahi tiene una macro para excel que combine las celdas si la anterior y la siguiente son iguales(de arriba y de abajo), y que también tenga como parámetro que si la anterior no es igual pero si la siguiente si y la siguiente de la siguiente si entonces también haga la fusion esto lo comento por que tenguna tabla con varios valores donde el campo llave se repite muchas veces y es este mismo el que me gustaría unificar les dejo un ejemplo: donde las celdas que me interesan unificar están en la columna A:A

A:A B:B

0001 10/05/2012

0001 11/06/2013

0002 11/06/2013

0002 10/12/2012

0002 10/10/2013

0003 11/11/2014

0003 10/10/2010

Debería verse más o menos asi pero obviamente con las celdas de la fila llave unificadas,

A:A B:B
10/05/2012
0001 11/06/2013
11/06/2013
0002 10/12/2012
10/10/2013
11/11/2014
0003 10/10/2010

1 respuesta

Respuesta
3

Te mando mi solución para ese ejemplo. Posiciónate en la primera celda de la columna A y después ejecuta esta macro:

Sub ejemplo()
'por luismondelo
Application.DisplayAlerts = False
Do While ActiveCell.Value <> ""
valor = ActiveCell
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
If contarsi > 1 Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + contarsi - 1, 1)).Merge
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

no olvides finalizar la consulta

Excelente entendimiento a pesar de mis pocas herramientas descriptivas, una solución perfecta y en todos los sentidoseres el dios del vb MIL GRACIAS!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar y copiar valores únicos con una macro

De nuevo por aca buscando una "dosis de valiosa ayuda". La situacion es la siguiente: estoy realizando una aplicación que automatice una operacion. En la hoja A se introducen los siguientes datos:grupo, fecha, Id, condición y monto. El grupo (A o...
1 respuesta

¿Cómo puedo no repetir un rango de datos en excel.?

Es fácil no repetir un valor pero no puedo hacer que sean varios valores. Ejemplo: a1=12 b1=45 c1=66 y estos valores no se deben repetir o sea a124=12 b124=45 c124=66 (Esto no debe pasar) pero si a126=12 b126=45 c124=68 // a126=15 b126=45 c124=68 //...
1 respuesta

Comparar valores de columna A, si iguales, concatenar valores de B en C, si no copiar B en C sin con

Tengo un Excel, en la columna A hay valores repetidos desde 2 veces hasta N, y en la columna B hay valores diferentes para cada celda de A, independientemente de sus valores. Lo que tengo que hacer es mientras los valores de A sean iguales, hay que...
1 respuesta

Impedir registros repetidos considerando 2 columnas

En una Hoja Excel, a modo de base de datos, utilizo un UserForm para ingresar estos datos. Nos centraremos en las columnas"A" y "B" que es donde me surgen los problemas. En la Columna "A" van números de registro y en la "B", la fecha en la que se...
1 respuesta

Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas. En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los...
1 respuesta

No duplicar un dato en una hoja excel

Lo que quiero es saber si hay alguna otra opción que no sea el CONTAR. SI, para poder gestionar la hoja de excel donde trabajo con bastantes facturas. Lo que realmente me gustaría es saber si puedo mejorar este excel. Quisiera que cuando introduzca...
1 respuesta

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Numeración correlativa de un campo según el año

Tengo una tabla llamada MUESTRAS con varios campos entre ellos "numeración" y "fecha" Desearía que en el campo "numeración" se me guardara el valor como BDM/2013/0001 ... BDM/2013/0002....BDM/2013/0003.... Y que con el cambio de año los 4 últimos...
1 respuesta

Código para evitar ingresar datos repetidos desde un textbox y un userform

Como hago para cargar ese macro Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then dato = Target.Value contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato) If contarsi > 1 Then MsgBox "el...
3 respuestas

Extraer valores únicos, pegar y contar repeticiones

¡ Busco un código para realizar la siguiente tarea: Tengo una lista de países en una columna (no siempre serán los mismos), en la cual se repiten los nombres. Necesito un código que extraiga de forma única cada nombre que encuentre (país) y cuente el...
2 respuestas