复制公式、宏、标题……但不复制数据

Question

我创建了 2013 年的簿记电子表格。我想复制所有内容用于 2014 年的工作，但我不需要数据。

我想我可以检查所有内容并确保它受到保护，然后复制，然后删除所有内容？

如果我将 2013 文件保存为模板，它还会保存输入的数据吗？如果我从现有工作簿创建新工作簿，它会复制所有内容吗？还是仅复制受保护的内容。

Answer 1

如果您复制工作簿并运行这个小宏：

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

工作表中的所有数字数据都将被删除。