Crear una columna a partir de otra pero obviando las celdas en cero
Señor Dante. Necesito una fórmula o una macro para crear una columna a partir de otra pero sin tomas celdas con el valor 0.
Respuesta de Andy Machin
1
Intenta con esta macro:
-Sustituye "Sheet1" con el nombre de la hoja.
-Sustituye Columns(1). Copy con el numero de la columna que quieres copiar
-Sustituye Columns(2) con el numero de la columna donde quieres pegar
Sub PiscoProfe()
Application.ScreenUpdating = False
Sheets("Sheet1").Columns(1).Copy Destination:=Sheets("Sheet1").Columns(2)
Columns(2).Select
Dim Rng As Range
Dim WorkRng As Range
Set WorkRng = Application.Selection
Do
Set Rng = WorkRng.Find("0", LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.Delete Shift:=xlUp
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
