怎样用宏来实现这个问题？

linn339q

"当单元格包含有“大”“中”“小”“最小”的字符时，就自动清除该单元格的内容及相邻单元格的内容，  用宏怎样实现"        
请看附件谢谢
        
        
        
        
        
        

不知道为什么

就冲这头像我也得提示你：论坛寻求帮助最好是上传附件！

^顾弘^

Sub 清除()
Dim rng As Range
For Each rng In Range("a1:b200")  'range("a1:b200")区域可以自己设定
If rng.Column > 1 And rng.Row > 1 Then
If rng Like "*大*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*中*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*小*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
End If
ElseIf rng.Column = 1 And rng.Row = 1 Then
If rng Like "*大*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*中*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*小*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
End If
ElseIf rng.Column = 1 And rng.Row > 1 Then
If rng Like "*大*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*中*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*小*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(-1, 0).ClearContents
     rng.Offset(0, 1).ClearContents
End If
ElseIf rng.Column > 1 And rng.Row = 1 Then
If rng Like "*大*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*中*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
ElseIf rng Like "*小*" Then
     rng.ClearContents
     rng.Offset(1, 0).ClearContents
     rng.Offset(0, -1).ClearContents
     rng.Offset(0, 1).ClearContents
End If
End If
Next
End Sub

liulang0808

楼主可以考虑for循环+instr判断有无关键字即可，另外如果包含"最小"，肯定包含"小"，“最小”这个有点多余
还有清空相邻单元格，这个相邻单元格指什么
楼主其实可以考虑筛选-包含，手动清理看看

linn339q

不知道为什么 发表于 2018-7-20 00:48
就冲这头像我也得提示你：论坛寻求帮助最好是上传附件！

好                  

linn339q

^顾弘^ 发表于 2018-7-20 07:29
Sub 清除()
Dim rng As Range
For Each rng In Range("a1:b200")  'range("a1:b200")区域可以自己设定

谢谢你,等一下我上班用电脑运行一下

linn339q

liulang0808 发表于 2018-7-20 07:37
楼主可以考虑for循环+instr判断有无关键字即可，另外如果包含"最小"，肯定包含"小"，“最小”这个有点多余
...

好的，我试一下

linn339q

^顾弘^ 发表于 2018-7-20 07:29
Sub 清除()
Dim rng As Range
For Each rng In Range("a1:b200")  'range("a1:b200")区域可以自己设定

请问,我用2003版本执行不了。是不是版本的问题？

^顾弘^

linn339q 发表于 2018-7-20 11:54
请问,我用2003版本执行不了。是不是版本的问题？

2003版本有点老了，可以考虑升级下吧，03版本我没试过。

lsc900707

linn339q 发表于 2018-7-20 11:54
请问,我用2003版本执行不了。是不是版本的问题？

这个代码很office版本毛关系没有！