Pegar celdas y que coincidan con celdas espaciadas
Quiero pegar un rango de celdas, pero necesito que coincidan con la columna de la derecha, la cual tiene celdas en blanco.
2 Respuestas
Lo que pego es a partir de A2, y en la imagen de la derecha lo que hago manualmente. gracias
H o l a:
Ejecuta la siguiente macro:
Sub CopiarPegar()
'Por.Dante Amor
col = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column + 1
'
Columns("A").Copy Columns(col)
u = Range("A" & Rows.Count).End(xlUp).Row
If u < 2 Then u = 2
Range("A2:A" & u).ClearContents
n = 2
For i = 2 To Cells(Rows.Count, col).End(xlUp).Row
For j = n To Range("B" & Rows.Count).End(xlUp).Row
If Cells(j, "B") <> "" Then
Cells(j, "A") = Cells(i, col)
Exit For
End If
Next
n = j + 1
Next
Columns(col).ClearContents
MsgBox "Proceso terminado"
End SubSigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
‘
Estimado podrías explicar un poco mas tu inconveniente, para ayudarte en la solución.
Necesito pegar celdas pero el destino tiene espacios entre filas, de uno a cuatro espacios aleatorios, entonces si pego mis celdas tendría que insertar yo los espacios manualmente, lo que necesito es una forma de pegar o una función que haga coincidir donde hay valor.
Lo que pego es a partir de A2, y la imagen del lado derecho es como debe quedar, gracias.
Indícame un correo para enviarte un adjunto con la respuesta...
Aplique algo rápido utilizando las formulas de excel directamente, sin crearme nada en VBA.
Básicamente creo una guía y utilizo DESREF para incrementar el valor a traerme.
Enviado, vale destacar la respuesta de Dante Amor es perfecta si sabes utilizar vba o macros.