Actividad pública reciente
Ha valorado "Excelente" la respuesta
Eliminar Columnas de acuerdo a valor especifico
Aplica la siguiente macro Sub eliminar() 'Por.DAM For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1 If Cells(1, i) = 0 Then Columns(i).Delete Next End Sub Saludos.Dante Amor No olvides valorar la respuesta.