EXCEL中同一列避免重复数据[原创]
2010-06-25 10:27
246 查看
宏代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Split(ActiveCell.Address, "$")(2) = 1 Then Exit Sub '活动单元格是最顶上的单元格时退出SUB
For i = 1 To (Split(ActiveCell.Address, "$")(2) - 2)
If Range(Split(ActiveCell.Address, "$")(1) & i).Value = Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value And Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value <> "" Then
Range(Split(ActiveCell.Address, "$")(1) & i).Interior.Color = RGB(200, 160, 35)
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.Color = vbRed
Dim RC
RC = MsgBox("IMEI号:" & Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value & "与单元格" & Split(ActiveCell.Address, "$")(1) & i & "的IMEI号重复!是否处理?", vbYesNo + vbQuestion, "号码重复!是否处理? ------Powered By 游虫")
If RC = vbYes Then
Range(Split(ActiveCell.Address, "$")(1) & i).Interior.ColorIndex = False
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.ColorIndex = False
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value = ""
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Select
Exit Sub
End If
End If
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Split(ActiveCell.Address, "$")(2) = 1 Then Exit Sub '活动单元格是最顶上的单元格时退出SUB
For i = 1 To (Split(ActiveCell.Address, "$")(2) - 2)
If Range(Split(ActiveCell.Address, "$")(1) & i).Value = Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value And Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value <> "" Then
Range(Split(ActiveCell.Address, "$")(1) & i).Interior.Color = RGB(200, 160, 35)
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.Color = vbRed
Dim RC
RC = MsgBox("IMEI号:" & Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value & "与单元格" & Split(ActiveCell.Address, "$")(1) & i & "的IMEI号重复!是否处理?", vbYesNo + vbQuestion, "号码重复!是否处理? ------Powered By 游虫")
If RC = vbYes Then
Range(Split(ActiveCell.Address, "$")(1) & i).Interior.ColorIndex = False
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.ColorIndex = False
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value = ""
Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Select
Exit Sub
End If
End If
Next i
End Sub
相关文章推荐
- EXCEL中避免同一列及相邻列中出现重复数据[原创]
- 删除excel中的一列中重复的数据
- excel禁止(避免)输入重复数据的设置方法
- 如何对EXCEL一列的数据中快速提取不重复的记录
- Excel中删除两列中重复的数据[原创]
- Excel如何找出同一列的重复数据
- 如何在Excel的一列中查找重复的数据
- excel 如何从一列数据中剔出与另一列重复的数据
- 通过SQL脚本导入数据到不同数据库避免重复导入三种方式
- easy ui 表单提交添加遮罩,避免数据重复提交
- EXCEL中标记两列中都存在的数据,过滤B列中存在A列中不存在的数据[原创]
- 【Aaronyang原创】用linq取出一个集合中重复的数据
- sql查询一列 重复的数据
- 在EXCEL中如何给一列数据加上双引号
- 通过vc 操作excel时避免重复定义的问题
- EXCEL删除被重复了的所有数据的函数
- 在EXCEL中,判断同列数据重复,并标识出来
- oracle_删除同一列的重复数据
- SSIS利用重新定向行方式过滤Excel 数据源中的重复数据
- Excel删除重复数据