在Excel工作表中清除单元格

Question

以下代码用于清除Excel中A15：H中单元格的值：

'Set TargetSheet and clear the previous contents
targetSheet = "Lägg in Ärende"
tRow = 15
lastRow = Sheets(targetSheet).Range("A" & Rows.Count).End(xlUp).Row
Sheets(targetSheet).Range("A15:H" & lastRow).ClearContents

当单元格A15：H中存在现有值时，它可以正常工作。

但是当A15：H中的单元格为空并且您仍然运行宏时， A2，A9和A14：H14 中的所有单元格都将被删除。有人知道为什么吗？

Answer 1

这对你有帮助。

targetSheet = "Lägg in Ärende"
lastRow = Sheets(targetSheet).Range("A" & Rows.Count).End(xlUp).Row

IF lastRow<15 THEN lastRow=15
Sheets(targetSheet).Range("A15:H" & lastRow).ClearContents