Combinar celdas de dos columnas en una

On Sep 30, 10:38 pm, jjjgarcia1 wrote:
Mostrar la cita

Hola.

Alguien me puede ayudar quiero comibinar dos columnas en una sola de
una forma rapida
asi estan las columnas

    A       B
06:00    IT1
07:00    IT2
08:00    IT1
09:00    IT2
10:00    IT1
11:00    IT2
12:00    IT1

asi quiero que queden

06;00
IT1
07:00
IT2
08:00
IT1
09:00
IT2
10:00
IT1
11:00
IT2
12:00
IT1

Alguien me puede ayudar?

Muchas gracias.

Te da igual que estén en la misma celda?

Una forma sencilla podría ser: escribir la fórmula ¡ & CHAR(10) & B1
en la columna C y extender hacia abajo.

- Te da igual que estén en la misma celda?

No, ese es el problema porque lo podría hacer con trasponer. Lo que
quiero es mezclar las celas de las dos columnas en una sola columna
pero en celdas separadas.

gracias

On Oct 3, 8:41 pm, jjjgarcia1 wrote:
Mostrar la cita

- Te da igual que estén en la misma celda?

No, ese es el problema porque lo podría hacer con trasponer.  Lo que
quiero es mezclar las celas de las dos columnas en una sola columna
pero en celdas separadas.

gracias

En ese caso solo se me ocurre hacerlo con una macro

Esta macro supone que las columnas donde están los datos son la A y la
B

y debes seleccionar la celda donde esté el primer dato (en el ejemplo
A1) porque por ahí es por donde comenzará a combinar las celdas.

Es importante la celda que esté seleccionada y que los datos se
limiten a las columnas A y B.


Otra observación importante es que utiliza la opción de Insertar
lineas de modo que si tienes otros datos más a la derecha estos se
moveran al insertar filas por en medio, si este es el caso habría que
modificar la macro para que dejara estos datos en su sitio ;-)

Copia y pega esta macro en un modulo nuevo, Selecciona la primera
celda donde haya datos en la columna A y ejecuta la macro ;-)

Y dime si sirve.

Saludos,

-8<--

Sub combinar_celdas()

primera_fila = ActiveCell.Row
primera_colu = ActiveCell.Column

ultima_fila = (2 * (Range("A65536").End(xlUp).Row - primera_fila))
+ primera_fila

fila = ActiveCell.Row + 1
Rows(fila & ":" & fila).Select
Do While ActiveCell.Value <> ""
Selection.Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove
fila = fila + 2
Rows(fila & ":" & fila).Select
Loop

Cells(primera_fila, primera_colu + 1).Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove


For n = primera_fila To ultima_fila Step 2
Cells(n + 1, primera_colu).Value = Cells(n + 1, primera_colu +
1).Value
Next n

Columns("B:B").Delete

End Sub

On 30 sep, 23:38, jjjgarcia1 wrote:
Mostrar la cita

Hola.

Alguien me puede ayudar quiero comibinar dos columnas en una sola de
una forma rapida
asi estan las columnas

    A       B
06:00    IT1
07:00    IT2
08:00    IT1
09:00    IT2
10:00    IT1
11:00    IT2
12:00    IT1

asi quiero que queden

06;00
IT1
07:00
IT2
08:00
IT1
09:00
IT2
10:00
IT1
11:00
IT2
12:00
IT1

Alguien me puede ayudar?

Muchas gracias.

Hola.

Con las funciones de búsqueda y referencia tienes una batería de
posibles opciones. Entre ellas está la función desref.

Necesitaremos una columna accesoria para el posicionamiento, que nos
indique el orden, como se muestra a continuación en la columna C:

A B C
06:00 IT1 0
07:00 IT2 0
08:00 IT1 1
09:00 IT2 1
10:00 IT1 2
11:00 IT2 2
12:00 IT1 3

La fórmula sería:

D1ÞSREF($A$1;C2;0)
D2ÞSREF($B$1;C2;0)

Copiando estas dos fórmulas hacia abajo, te funcionará.

Saludos,

Benito Merino

Muchas gracias.

He provado la función desref y me sirve.

Gracias tambien a Pedro.