VBA如何实现在一列数据中输入重复的数值后返回空白单元格？

Yaong_3

是括号里的吗？那是 Change 过程的参数，Target 是“当前目标”的意思，详细的查帮助。

东亚五金

函数白痴，求带 发表于 2018-6-10 10:40
大神，第一句后面的理解不了，能翻译一下吗？非常感谢

Private Sub Worksheet_Change(ByVal Target As Range)    '私有的,当工作表发生改变时执行本程序(固定格式)
If WorksheetFunction.CountIf(Range("C1:C9"), Target) Then Target.ClearContents    '如果 工作表公式的条件计数函数(单元格区域("C1:C9"),活动单元格) 则执行  活动单元格的清除内容
End Sub    '子程序结束

函数白痴，求带

Yaong_3 发表于 2018-6-10 10:46
是括号里的吗？那是 Change 过程的参数，Target 是“当前目标”的意思，详细的查帮助。

现在理解了，但按照代码执行后所有在C1:C9单元格输入任何值都为空白，我想要的效果是C1单元格输入值后，C2:C9的单元格如有和C1单元格的值为相同则为空白，或是说C1单元格输入值后,C2要输入与C1单元格不同的值才能进行下一个单元格填写，想要这个效果，能不能帮我实现以下大神。。。

函数白痴，求带

东亚五金 发表于 2018-6-10 10:58
Private Sub Worksheet_Change(ByVal Target As Range)    '私有的,当工作表发生改变时执行本程序(固定格 ...

现在理解了，但按照代码执行后所有在C1:C9单元格输入任何值都为空白，我想要的效果是C1单元格输入值后，C2:C9的单元格如有和C1单元格的值为相同则为空白，或是说C1单元格输入值后,C2要输入与C1单元格不同的值才能进行下一个单元格填写，想要这个效果，能不能帮我实现以下大神。。。

东亚五金

函数白痴，求带 发表于 2018-6-10 11:44
现在理解了，但按照代码执行后所有在C1:C9单元格输入任何值都为空白，我想要的效果是C1单元格输入值后，C ...

Private Sub Worksheet_Change(ByVal Target As Range)    '私有的,当工作表发生改变时执行本程序(固定格式)
If WorksheetFunction.CountIf(Range("C1:C9"), Target) > 1 Then Target.ClearContents  '如果 工作表公式的条件计数函数(单元格区域("C1:C9"),活动单元格)大于1 则执行  活动单元格的清除内容
End Sub    '子程序结束