0

你好有人可以帮助我。我有三列，如果符合某些条件，我想搜索每一列并删除内容。

B 列仅删除具有名称
的单元格 C 列仅删除具有单词托盘和数字的单元格 F 列仅删除带有 * 后跟四个 0000 然后以 * 结尾的单元格 这是我想出的，但它不起作用，我是不知道该怎么办。我已经搜索和搜索。我该怎么做谢谢？

列 B 名称列单元格格式 FN,LN 清除从第 16 行到最后一行的所有名称。有些'行可能有日期和时间我不想碰那些

列 C 范围格式托盘 226985 清除该列中任何行的内容，其中单词托盘后跟一个数字到最后一行

列 F 范围格式000000226985以 * 开头，然后是四个 0000 并以 * 结尾，将具有该格式的单元格内容删除到最后一行

Sub Macro1()

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

End Sub
4

1 回答 1

3

下面应该通过遍历 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
于 2013-04-18T00:15:43.573 回答