创建宏以删除符合特定条件的列中的单元格内容
创建宏以删除符合特定条件的列中的单元格内容
提问于 2013-04-17 18:45:12
有人能帮我吗。我有三列，如果符合某些条件，我想搜索每一列并删除内容。
B列仅删除带有名称的单元格
列C只删除带有单词托盘的单元格，而数字列F只删除带有*的单元格，后面跟着4 0000，然后以*结束。这是我想出来的，但它不起作用，我不知道该怎么做。我搜了又搜。我该怎么做谢谢？
列B名称列单元格格式FN，LN清除从第16行到最后一行的任何名称。有些争吵可能有我不想碰的日期和时间
列C范围格式Tray 226985清除该列中任何行的内容，在栏后面加上一个数字到最后一行
列F范围格式000000226985以*然后4 0000开头，以*删除带有该格式的单元格内容结束，直到最后一行
Sub Macro1()
Range(b1, b65536).Value = ("*,*").clearcontent
Range(c1, c65536).Value = tray(*).clearcontent
Range(f1, f65536).Value = ("*0000*").clearcontent
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2013-04-18 00:15:43
下面应该通过循环遍历A列中的每个单元格并检查偏移单元格来完成所需的任务。我重复了你的标准，但我不熟悉‘托盘(*)’，我想你可能想用这样的词来代替这一行：
If c.Offset(0, 2).Value Like "Tray*" Then你可能需要寻找替代方案，如果它必须是一个数字后‘托盘’，我会让你得到正确的标准，但希望我已经帮助了循环的方法。
Dim sh As Worksheet
Dim rng As Range, c As Range
Set sh = ActiveSheet
Set rng = sh.Range("A:A")
For Each c In rng
If c.Offset(0, 1).Value Like "*,*" Then
c.Offset(0, 1).ClearContents
End If
If c.Offset(0, 2).Value Like tray(*) Then ' see note on replacing this line
c.Offset(0, 2).ClearContents
End If
If c.Offset(0, 5).Value Like "*0000*" Then
c.Offset(0, 5).ClearContents
End If
Next c页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/16067725
复制相关文章
相似问题
腾讯云开发者
