Rellenar automáticamente 0 y 0% en celdas en blanco de Excel

Question

Estoy tratando de ingresar automáticamente valores de 0 y 0% en celdas en blanco en Excel. Tengo un informe en Excel que se completa automáticamente desde SAS. Después de guardar este informe, quiero que las celdas en blanco se llenen automáticamente como 0 en columnas numéricas y 0% en columnas porcentuales.

¿Cuál sería el código macro o VBA para eso?

Answer 1

Si solo desea agregar 0 a una celda en blanco, hay varias formas de hacerlo; aquí hay una que usa el rango A1: D10 como ejemplo. Tenga en cuenta que si una célula tiene el formato de porcentaje, el "%" se añade automáticamente a la 0.:

Sub test() 

Dim cell As Range 

For Each cell In Range("A1:D10") 
    If Len(cell.Value) = 0 Then 
     cell.Value = 0 
    End If 
Next 

End Sub 

Tenga en cuenta que si usted está haciendo esto en una gran variedad de células (en realidad, es una buena práctica hacer esto todo el tiempo), quiere asegurarse de agregar Application.ScreenUpdating = False al comienzo del código y Application.ScreenUpdating = True al final. Eso hará que funcione mucho más rápido.

Answer 2

Si las celdas están realmente en blanco (es decir, vacías), hay dos formas de llenar las celdas inmediatamente usando SpecialCells, ya sea manualmente o con un código rápido para evitar bucles.

David Mcritchie ha escrito esto en detalle here.

manual de ruta

• Hacer una selección
• Prensa F5 ... especial .. Goto deja en blanco
• en la barra de fórmulas añadir 0
• a continuación, pulse Ctrl + Enter

ruta código

Sub Quickfull() 
'reset usedrange 
ActiveSheet.UsedRange 
On Error Resume Next 
ActiveSheet.Cells.SpecialCells(xlBlanks).Value = 0 
End Sub