创build一个macros来删除符合特定条件的列中的单元格内容

你好，有人可以帮助我。 我有三列，我想search每一列，并删除内容，如果它符合某些标准。

B列只删除名称的单元格
列C删除只有单词托盘和数字的单元格列F只删除*后跟四个0000的单元格然后以*结束这是我想出来的，但它不工作，我不知道该怎么做。 我已经search和search。 我怎么做这个谢谢？

列B名称列单元格格式FN，LN清除行16到lastrow中的任何名称。 有些行可能有date和时间，我不想去碰那些

列C范围格式托盘226985清除该列中的任何行的内容与词托盘后跟一个数字的拉斯特罗

列F范围格式000000226985以*开头，然后是四个0000并以*格式结尾以*格式删除单元格内容到lastrow

Sub Macro1() Range(b1, b65536).Value = ("*,*").clearcontent Range(c1, c65536).Value = tray(*).clearcontent Range(f1, f65536).Value = ("*0000*").clearcontent End Sub 

Answer 1

以下应该通过循环遍历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