excel中 在sheet1某单元格内输入数据 在sheet2列出清单

excel中 在sheet1某单元格内输入数据 在sheet2列出清单

sheet1的代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Len(Target.Value) Then
Dim rl
With Sheet2
rl = .Range("A10000").End(xlUp).Row
If Application.WorksheetFunction.CountIf(.Range("A1:A" & rl), Target.Value) Then
MsgBox "有重复数据，请重新输入"
Else
.Cells(rl + 1, 1) = Target.Value
End If
Target = ""
End With
End If
End Sub

这个只能去编程

...你说的问题再明确些好不?

都不知道如何解.追问sheet1只有一个可以录入的单元格
咱们叫他A
A格输入的数据
会在sheet2里列出清单
如果有重复会报错如果不重复
A格清空准备下次输入就是这么多要求

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息