Copiando fórmulas, macros, cabeçalhos .. mas não dados

Question

Eu criei planilhas de contabilidade para 2013. Quero tudo copiado para funcionar em 2014, mas não quero os dados.

Eu suponho que eu poderia passar por tudo e ter certeza de que é Protegido, depois copiar e excluir tudo?

Se eu salvar o arquivo 2013 como um modelo, ele também salvará os dados inseridos? Se eu criar uma nova pasta de trabalho de uma pasta de trabalho existente, copia tudo? ou apenas o material protegido.

    

Answer 1

Se você fizer uma cópia da pasta de trabalho e executar essa pequena macro:

Sub DataCleaner()
For Each s In Sheets
    s.Activate
    For Each r In ActiveSheet.UsedRange
        v = r.Value
        If (Not r.HasFormula) And IsNumeric(r) Then
            r.ClearContents
        End If
    Next r
Next s
End Sub

todos os dados numéricos nos workshets serão removidos.