Pode utilizar a mesma rotina indicada no topico abaixo, é só ajustar o Range e trocar a linha: If Len(Trim(cel)) = 0 Then cel = ""

por esta:
If cel = 0 Then cel = ""

Preencher Células Vazias [Resolvido]
viewtopic.php?f=10&t=18039

Tente essa macro:

Troque Plan1 pelo nome da sua aba

Sub TrocarZero()

Dim lin As Integer
lin = 2 'aqui coloque o numero da primeira linha onde seus numeros estão

Do Until Sheets("Plan1").Cells(lin, 6) = ""
If Sheets("Plan1").Cells(lin, 6) = 0 Then Sheets("Plan1").Cells(lin, 6) = ""
lin = lin + 1
Loop

End Sub

Visite meu blog: programacaopassoapasso.wordpress.com

Obrigado, caras!