Удалить все данные, но не формулу в Excel 2013

Question

Я хочу использовать несколько листов Excel 2013, это ежегодные расходы домохозяйств и т.д. Я хочу удалить существующие данные, но оставить формулы и, предпочтительно, заголовки столбцов, а также оставить форматы без изменений.Может кто-нибудь подсказать, есть ли быстрый способ вычеркнуть уже устаревшие данные без необходимости перестраивать существующие листы. Это в Excel 2013.

Answer 1

Это должно сделать то, что вам нужно:

Sub kleanUP()
    Dim rng As Range

    Set rng = Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).SpecialCells(xlCellTypeConstants)

    rng.ClearContents
End Sub

Запустите его на каждом листе, который вы хотите очистить

Answer 2

Excel не сможет различить константы, которые являются заголовками, и константы, которые не являются заголовками. Если ваши заголовки находятся только в строке 1, то код Гэри будет работать, но если это не так, вы можете выбрать все ячейки ниже ваших заголовков, затем нажать F5, нажать "Специальные", отметить "Константы" и нажать "ОК". Затем нажмите клавишу Delete на клавиатуре.