Excel中可以利用range的clearcontents方法,将区域内的内容删除。
软件版本:Office2007
举例说明如下:
1利用VBA将有底色的区域的内容删除掉:
2Alt+F11,输入代码如下:
3F5执行代码,返回Excel,可以看到原来的内容已经被删除掉了:
清除公式保留结果,其实说白了就是复制粘贴为值的原理。
这里做了一个例子,可以参照修改。
Sub copy()
Range("A1:A11")copy
Range("A1:A11")PasteSpecial Paste:=xlPasteValues
End Sub
注意:需要分成两段,一段写会报错的。
检查一下你的 Excel 的“文件”->“选项”->“信任中心”->“信任中心设置”->“宏设置”,看看是不是禁用了所有的宏。若是,修改成启用即可。
仅针对你的这段代码,修改如下:
Sub Delete1()
Dim LastColum as Integer, LastRow as Long
With Sheet1
LastRow = CellsSpecialCells(xlCellTypeLastCell)Row
LastColumn = CellsSpecialCells(xlCellTypeLastCell)Column
Range(Cells(2,7), Cells(LastRow, LastColumn))Clear
End With
End Sub
或者不用 LastRow、LastColumn 作为中间变量那么麻烦:
With Sheet1
Range(Cells(2,7), CellsSpecialCells(xlCellTypeLastCell))Clear
End With
注意:使用 With……End With 块,一定要注意 "" 符号的运用。
以上就是关于excel vba删除内容全部的内容,包括:excel vba删除内容、vba一键清除指定区域单元格中的公式保留结果。、需要使用VBA对所有表格进行删除某区域内容的 *** 作等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)