Question

我想要在复制单元格内容后清除工作表但不删除Excel功能，或者从当前区域切割所有内容，但是再次保留H和I列中的功能。

代码如下并且效果很好但我不知道如何清除工作表并保持功能完好无损。这些功能在H和I列中。

Sub archive_old_data()

'copy Admissions sheet into Archive sheet

Application.ScreenUpdating = False

MsgBox "Please make sure you've reviewed all patients before archiving data."

Worksheets("Admissions").Activate
Range("A1").CurrentRegion.Copy
Worksheets("Archive").Activate
Range("A2").End(xlDown).Offset(1, 0).Select
ActiveCell.PasteSpecial
Worksheets("Admissions").Activate




End Sub

我很感激一些帮助。

我没有复制currentregion，我需要细胞A2：E2中的任何东西，但问题是我下次复制它可能是A2：E9，另一次A11：E11

Answer 1

如果您只想删除某个范围内的所有数字值，可以使用：

    Range("A1:D4").SpecialCells(xlCellTypeConstants, 1).ClearContents

要清除文字和数字（但不是公式），请使用SpecialCells(xlCellTypeConstants, 3)。

如果您不确定具体范围，则可以将其应用于整个列，或Cells表示整个列。

如果有可能不会删除任何值，那么您应该包含一些错误处理，否则会发现错误＆＃39;没有找到单元格＆＃39;出现。

复制后清除所有数据，但保留所有功能和公式

1 个答案: