电子表格怎么模糊查重
发布网友
发布时间：2022-04-24 14:35
共4个回答
热心网友
时间：2023-10-16 16:00
1、在B列中指定并录入判断重复的关键字，如：A1-A3昆虫小伙伴，A5-A7蓝色...............
2、在VB编辑器中输入以下代码并运行
Sub Chk()
Dim i1, i2, i3, i4, i5, i6, m1, m2
On Error Resume Next '忽略运行中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i1 = 1 To 100 '从第1行到100行
If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白，则
i4 = 0 '中间变量（统计相同个数）初始化
i5 = (Len(mysheet1.Cells(i1, 2))) '获取B列相应单元格字符长度
i6 = (Len(mysheet1.Cells(i1, 1))) '获取A列相应单元格字符长度
For i3 = 1 To i5 'B列相应单元格从第1个字符到末尾的字符长度
m1 = Mid(mysheet1.Cells(i1, 2), i3, 1) '截取字符
For i2 = 1 To i6 'A列相应单元格从第1个字符到末尾的字符长度
m2 = Mid(mysheet1.Cells(i1, 1), i2, 1) '截取字符
If m2 = m1 Then '如果存在相同字符，则加1
i4 = i4 + 1
End If
Next
Next
If i4 = i5 Then '如果B列对应单元格的字符数与相同字符数相等，则
mysheet1.Cells(i1, 3) = "重复"
Else
mysheet1.Cells(i1, 3) = "No"
End If
End If
Next
End Sub
3、运行以上代码，在C列中就会出现判断值"重复"或"No"。
热心网友
时间：2023-10-16 16:01
用书的条形码来做唯一识别码，统计分析比较方便。
热心网友
时间：2023-10-16 16:01
写代码来实现。。。追问怎么写啊，大神
追答需要看文件，至于怎么写就是大神的事情了
热心网友
时间：2023-10-16 16:02
第四十四回 锦豹子小径逢戴宗 病关索长街遇石秀
