第一问答网»论坛 › 中问网 › 问答 › excel中在sheet1某单元格内输入数据在sheet2列出清单 ...

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

11 |

1 | 2013-4-6 12:58:17 | 显示全部楼层 |阅读模式

sheet1的代码Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" And Len(Target.Value) ThenDim rlWith Sheet2rl = .Range("A10000").End(xlUp).RowIf Application.WorksheetFunction.CountIf(.Range("A1:A" & rl), Target.Value) ThenMsgBox "有重复数据，请重新输入"Else.Cells(rl + 1, 1) = Target.ValueEnd IfTarget = ""End WithEnd...

使用道具举报