vba - Excel搜索并删除不包含搜索值的不同特定单元格

Question

我不得不问，如何搜索价值和！删除差异

如果我在column A B C 工作表（2）的单元格 A1 中和下面有这样的数据，则有“bbb”

我应该使用什么函数或 VBA 来删除不包含 bbb 的行 A 和 B 列中的单元格

尝试使用宏记录，但效果不佳

      A                   B                       C

aaa-1.1.1.1         aa1a1a1a1a1               remark

bbb-2.5.2.2         b2b2b2b2b2b2              remark  

ccc-3.3.3.3         c3c3c3c3c3c3              remark

bbb-1.2.2.5         b2b2b2b2b2b2              remark  

ddd-4.1.2.4         d4d4d4d4d4d4              remark

bbb-1.3.2.7         b2b2b2b2b2b2              remark  

bbb-2.2.2.2         b2b2b2b2b2b2               remark 

结果应该像

    A                  B                        C
                                              remark

bbb-2.5.2.2         b2b2b2b2b2b2              remark  

                                              remark

bbb-1.2.2.5         b2b2b2b2b2b2              remark  

                                              remark

bbb-1.3.2.7         b2b2b2b2b2b2              remark  

bbb-2.2.2.2         b2b2b2b2b2b2              remark 

感谢您为我提供的每一个帮助:)

Answer 1

使用 vba

当它到达一个空行时，以下将停止......

x = 1
While Cells(x, 1) <> ""
    If Left(Cells(x, 1), 3) <> "bbb" Then
        Cells(x, 1) = ""
        Cells(x, 2) = ""
    End If
    x = x + 1
Wend

Answer 2

如果您不是在寻找一个自动化的解决方案（例如，这是一个一次性的方案，不需要编程或记录），您可以简单地sort基于Column A's 值的数据，那么删除过程是微不足道的。简而言之：

1. 突出显示所有有问题的行/列
2. 右键->排序->从A到Z排序
3. 选择包含 的行上方和下方的所有行bbb。这可以通过CTRL在选择时按住来完成。
4. 按删除

这是这些步骤和结果的一些屏幕截图

对数据进行排序

选择上方和下方的行bbb

按键Delete（结果）