Fusión de celdas idénticas

hola,
más fácil para mejorar la legibilidad,
ponerse en la segunda línea y en la columna donde ya no quieres ver duplicados,
formato, formato condicional,
el valor de la celda es igual a =a1 (celda anterior, quitando los signos de dólar)
formato, fuente, color blanco
copiar, marcar las demás celdas y pegado especial formato
esperando haberte ayudado
a+

hola

me gustaría que las celdas que contienen datos idénticos se fusionaran...

para ello, sí puedes fusionarlas, pero el
comportamiento de las celdas fusionadas es diferente.

te propongo más bien eliminar las filas idénticas con
la macro siguiente para insertar en la hoja con ALT + F11
luego ejecutar con ALT + F8 y luego ejecutar.

Public Sub sup_doubles()
Dim col, lig
For lig = 0 To (Cells(65000, 1).End(xlUp).Row - 1)
If Range("a1").Offset(lig, 0).Value = Range("a1").Offset(lig + 1, 0).Value Then
For col = 0 To Range("a1").Offset(lig, 0).End(xlToRight).Column - 1
If Not Range("a1").Offset(lig, col).Value = Range("a1").Offset(lig + 1, col).Value Then Exit For
Next col
If col = Range("a1").Offset(lig, 0).End(xlToRight).Column Then
Range("a1").Offset(lig, 0).EntireRow.Delete
End If
End If
Next lig
End Sub

--
siempre zen

Olvidé precisar: estoy en Excel 2000 y busco una macro VBA que funcione bien...

hola,

¿qué quieres hacer exactamente? ¿eliminar las filas duplicadas?

--
Saludos,
Kobaya.

Tengo el mismo problema, me gustaría que se fusionaran las celdas.

La razón es que mis celdas son muy pequeñas y no se ve su contenido.

Al fusionar las celdas idénticas, eso permitirá entonces ver el contenido, ya que solo habrá una gran celda.

Si solo se eliminan los duplicados, eso no permite ver lo que está escrito en la celda porque el contenido no se desplaza hacia las casillas vacías verticalmente.

Esto también permite centrar la información en varias celdas en lugar de tener la información en la parte superior o inferior.

Gracias por la ayuda.

hola

Esto también permite centrar la información en varias casillas

En “formato celda” tienes la posibilidad, sin fusionar, de centrar en varias columnas.

Cuando fusionas en varias filas, no debes olvidar que el orden del cuadro prácticamente ya no es posible.
--

Siempre zen

sí, pero no hay alineación centrada en varias líneas.

hola

Reemplazas los códigos de parámetros

Const maxl = 6 ' fin ligne Const minc = 1 ' début colonne Const maxc = 2 ' fin colonne por Dim maxl as long maxl = usedrange.rows.count ' fin ligne Const minc = 1 ' début colonne Dim maxc as integer maxc = usedrange.columns.count ' fin colonne 

Así tu macro tendrá en cuenta todas tus filas y todas tus columnas.

Te hice esta modificación para responder a tu deseo pero como ya te lo dije, el hecho de crear celdas fusionadas te va a generar problemas al usar tu tabla con otras macros porque la fusión perturba luego el direccionamiento de las celdas.
--

Siempre zen

Gbinforme,

No he entendido bien cómo reemplazar los códigos de parámetros porque ya no funciona, sobre todo porque no quiero aplicar esta macro a todas las columnas (pero sí a todas las filas).

Sin embargo, al adaptar estos códigos de parámetros al tamaño de mi tabla (de tal fila a tal fila y de tal columna a tal columna), ¡funciona de maravilla!

Así que muchas gracias, gbinforme, por esta macro tan práctica.

Hola,

Gracias gbinforme por este código.
He intentado adaptarlo a mi caso: quiero fusionar y centrar 2 celdas idénticas horizontalmente.
He intentado adaptar el código de gbinforme a mi caso, sabiendo que mi tabla tiene 100 filas y 100 columnas (ver abajo). Pero al ejecutar la macro, se queda dando vueltas en blanco, sin nunca dar un resultado. ¿Sabes si hay algo mal con mi código?
Gracias de antemano.

Dim l As Long ' fila
Dim d As Long ' dobles
Dim c As Integer ' columna
Const minl = 1 ' fila de inicio

Dim maxl as long
maxl = 100
Const minc = 1
Dim maxc as integer
maxc = 100

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For l = minl To maxl
For c = minc To maxc
For d = c + 1 To maxc
If (Cells(l, c) <> Cells(l, d)) Then Exit For
Next d
If d > c + 1 Then
With Cells(l, c).Resize(l, d - c)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End If
Next c
Next l
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Hola ReM,

Tuve casi el mismo problema. Quería fusionar los valores de las filas cuando la columna es idéntica, manteniendo los valores separados en las otras columnas. Por ejemplo:

A B C D
1 W w x x
2 W w x x
3 X x x x
4 Y y x x
5 Z z x x
6 Z z x x

En este caso, quiero fusionar los duplicados W y Z de las columnas A y B, manteniendo los datos de las columnas C y D tal como están.

No estoy habituada a hacer macros, pero jugando he encontrado la fórmula siguiente, que parece funcionar:

Sub fusion_2cell_vertical()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 6
If (Cells(i, 1) = Cells(i + 1, 1)) Then
Range(Cells(i, 1), Cells(i + 1, 1)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range(Cells(i, 2), Cells(i + 1, 2)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
i = i - 1
End If
Next
Application.ScreenUpdating = True
End Sub

Un mensaje advierte que conservará el valor superior izquierda al fusionar. Hay que hacer clic en OK cada vez.

¡Atención!
- Debes adaptar la fórmula al número de filas de tu tabla (en mi fórmula, el "6" está en la cuarta línea, para una tabla de 6 filas).
- Debes adaptar también las columnas que quieres fusionar. En mi ejemplo, son las columnas "1" y "2" (para A y B) -> Cells(i, 1), Cells(i, 2).

El problema es que no creo que funcione para fusionar un número variable de filas. Por ejemplo, a veces 2 filas, a veces 3 filas... En mi caso, siempre fusiono por 2 filas.

Es un poco confuso. Si te sirve...