求EXCEL公式或代碼，答案滿意追加100分

Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)

If?Target.Column?=?2?Or?Target.Column?=?4?Or?Target.Column?=?6?Then

[C:C]?=?"":?[E:E]?=?"":?[G:G]?=?""

For?i?=?Target.Row?To?3?Step?-1

If?Cells(i,?Target.Column)?=?Cells(Target.Row,?Target.Column)?Then?Cells(i,?Target.Column?+?1)?=?Target.Row?-?i

Next

End?If

End?Sub

在Worksheet的SelectionChange事件中加入上面的宏代碼。