我正在尝试编写可以完全删除工作簿中单元格内容的代码。
我想要两个相似的Subs
: 一Sub
清除所有内容和另一个 Sub
清除从第 2 行到最后一行的所有内容。
我正在使用以下代码,但它返回错误:
Sub Populate_RA_Sheet()
'
' Populate_RA_Sheet Macro
'
RA_Sheet(2).Cells.ClearContents
'
End Sub
最佳答案
假设工作表的名称是 Sheet1
然后
One code clear all content
ThisWorkbook.Sheets("Sheet1").Cells.ClearContents
and other code clear all contents starting from 2nd row till the last row whatever it is.
您可以找到最后一行,然后清除内容。但是你为什么要这样做呢?简单清除
ALL
第二行之后的行?With ThisWorkbook.Sheets("Sheet1")
.Rows("2:" & .Rows.Count).ClearContents
End With
如果你 还是 想要清除从第 2 行到最后一行的所有内容然后查看 THIS关于如何找到最后一行,一旦你得到最后一行,然后只需使用它
With ThisWorkbook.Sheets("Sheet1")
.Rows("2:" & LastRow).ClearContents
End With
备注 :
A1:A2
,上面的代码将失败被合并。所以要小心:) 关于vba - 清除所有内容,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32420584/