如何根据某个单元格的值删除并保留该单元格中的特定值？

Question

如何编写一个 vb 代码，当我在 A 列中输入特定值时删除 B 列的内容？示例：如果单元格 A1=apple，则单元格 B1 应删除其所含的任何值。但如果单元格 A1=grape，则单元格 B1 应保留其所含的任何值。

Answer 1

互联网上到处都有关于这个问题的细微变体。

此示例取自以下链接，并进行了少量修改

例子

子测试()
Dim LastRow 为 Long
LastRow = 范围（“A65536”）。End（xlUp）。Row
对于 i = 1 到最后一行
如果范围（“A”＆i）=“apple”则
    使用范围（“B”＆i）
        清除内容
        .格式条件.删除
    结尾
万一
接下来我
子目录结束