Attribute VB_Name = "testcellformat2"
Sub ƒeƒXƒg()
    
    Range("A1").Value = 13445
    Range("A1").NumberFormatLocal = "#,###"
    
    Range("A2").Value = 8565245
    Range("A2").NumberFormatLocal = "#,###"

    Range("A3").Value = 0
    Range("A3").NumberFormatLocal = "#,###"

    Range("A4").Value = 0
    Range("A4").NumberFormatLocal = "#,##0"

End Sub