excel中 在sheet1某单元格内输入数据 在sheet2列出清单
答案:4 悬赏:80 手机版
解决时间 2021-12-04 15:25
- 提问者网友：心牵心
- 2021-12-03 17:53
excel中 在sheet1某单元格内输入数据 在sheet2列出清单
最佳答案
- 五星知识达人网友：蓝房子
- 2021-12-03 19:11
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
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
全部回答
- 1楼网友：时间的尘埃
- 2021-12-03 22:05
这个只能去编程
- 2楼网友：老鼠爱大米
- 2021-12-03 21:49
...你说的问题再明确些好不?
都不知道如何解.追问sheet1只有一个可以录入的单元格
咱们叫他A
A格输入的数据
会在sheet2里列出清单
如果有重复会报错如果不重复
A格清空准备下次输入就是这么多要求
都不知道如何解.追问sheet1只有一个可以录入的单元格
咱们叫他A
A格输入的数据
会在sheet2里列出清单
如果有重复会报错如果不重复
A格清空准备下次输入就是这么多要求
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯