Unir celdas
Tengo en la 1ra fila y columna datos numéricos que uno usando la función concatenar también utilizo la tecla f4 para arratrar hacia bajo no me cambie el numero fijo de la 1ra fila, pero deseo hacerlo más rapido sin tener que arratrar columna por columna colocando la información en las primeras celdas para arrastrar, prácticamente trabajo con toda la hoja de excel
1 Respuesta
Respuesta de macros_excel
1
No entendí bien lo que necesitas
Pero copia y pega esta macros
Al ejecutarse esta macro te abre un cuadro que te pide que pongas la cantidad de lineas a unir puedes poner la cantidad que tu quieras no mayor a la cantidad de flas que tiene la hoja menor uno
Y te une los valores de la celdas de las columnas a y la b el resultado lo pone en las celdas de la columna c comienza a partir de la linea 2.
Sub MyMacro()
Range("c2").Select
a = InputBox("Ponga el total de lineas a unir")
For i = 1 To a
ActiveCell.Value = ActiveCell.Offset(0, -2).Value & ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(1, 0).Select
Next
End Sub
Saludos
Más en
Pero copia y pega esta macros
Al ejecutarse esta macro te abre un cuadro que te pide que pongas la cantidad de lineas a unir puedes poner la cantidad que tu quieras no mayor a la cantidad de flas que tiene la hoja menor uno
Y te une los valores de la celdas de las columnas a y la b el resultado lo pone en las celdas de la columna c comienza a partir de la linea 2.
Sub MyMacro()
Range("c2").Select
a = InputBox("Ponga el total de lineas a unir")
For i = 1 To a
ActiveCell.Value = ActiveCell.Offset(0, -2).Value & ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(1, 0).Select
Next
End Sub
Saludos
Más en
