用VBA实现一个功能：历遍每个单元格，当单元格内容是xxx,yyy,zzz,aaa,bbb,ccc中任意一项的时候就删除

发布网友发布时间：2022-05-27 03:30

共1个回答

热心网友时间：2023-10-03 08:13

Sub a()
Dim rg As Range, rgarea As Range
Set rgarea = Selection
For Each rg In rgarea
Select Case rg.Value
  Case "xxx"
   rg.Value = ""
  Case "yyy"
   rg.Value = ""
  Case "zzz"
   rg.Value = ""
  Case "aaa"
   rg.Value = ""
  Case "bbb"
   rg.Value = ""
  Case "ccc"
   rg.Value = ""
End Select
Next
End Sub

如上代码：将选中单元格区域中内容为xxx,yyy,zzz,aaa,bbb,ccc中任意一项时，该单元格值清空。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com