经验直达：
- excel函数或代码问题
- 这个EXCEL函数VBA怎么弄代码
一、excel函数或代码问题
一、常规来看是悖论：
如果A1有内容 ， 就清空B1里的内容 。
那么就无法产生【如果B1里有内容，就清空A1里的内容】因为A1里有内容的话就保证了B1里会是空的，只有当A1是空的时候，B1里才会有内容 ， 但是，既然A1已经是空的了，就不必清除 。
========================================================
【这个EXCEL函数VBA怎么弄代码 excel函数或代码问题】二、特殊的情况可以实现：
当单元格变化时：
如果A1从空白变成有内容，就清除B1
如果B1从空白变成有内容，就清除A1
需要VBA实现
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Range("B1").ClearContents
If Target.Address = "$B$1" And Target <> "" Then Range("A1").ClearContents
End Sub
附件请下载参考
二、这个EXCEL函数VBA怎么弄代码
测试通过 ， 确保正确运行的代码如下：
Option Explicit
Sub x()
Dim i, j, n
n = ActiveSheet.UsedRange.Rows.Count
For i = 1 To n
If Cells(i, "A") = 1 Then
For j = n To 1 Step -1
If Cells(j, "C") = Cells(i, "B") Then Cells(j, "C").Delete (xlShiftUp)
Next j
End If
Next i
End Sub