如何用VBA删除单元格中的内容

答案:2 悬赏:30 手机版

解决时间 2021-03-18 13:18

提问者网友：咪咪
2021-03-18 08:46

表格中有大量数据，想删除小于12或者大于等于30000的数据，有多个工作表如何用VBA实现

最佳答案

五星知识达人网友：第幾種人
2021-03-18 08:58

'运行以下过程,清除当前工作簿中所有工作表中小于12且大于30000的数据,只是清除单元格内容,运行前请备份文件,以免出错Sub DelCell() '若要删除单元格刚将C.ClearContents改为C.Delete即可
Dim C As Range
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
For Each C In Sht.UsedRange
If IsNumeric(C.Value) And C.Value < 12 Or C.Value > 30000 Then C.ClearContents
Next
Next
End Sub

全部回答

1楼网友：玩世
2021-03-18 10:19

选中就删除？没有条件吗？以下代码是单元格事件自动完成。选择单元格就清除数据，删除边框 private sub worksheet_selectionchange(byval target as range) dim rng as range set rng = target rng.clearcontents rng.borders.linestyle = 0 end sub 以下代码选择单元格或单元格区域后运行此宏即清除数据，删除边框 sub bb() dim rng as range set rng = selection rng.clearcontents rng.borders.linestyle = 0 end sub 或 sub bb() with selection .clearcontents .borders.linestyle = 0 end with end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息