如何查找两行部分内容相同的数据并标记

heimao0097

求教，想在excel表中找到两行内容大部分相同的数据并用颜色标记出来，如下图表黄部分，该如何做，谢谢。

little-key

这个大部分相同如何定义呢

heimao0097

如图片里标黄的那种，除了B列内容不一致，其他内容基本是完全一样的。

coolall

我猜测的结果是这样的

heimao0097

coolall 发表于 2017-5-3 14:34
我猜测的结果是这样的

就是这个意思，请问是怎么做到的，附件下载下来显示vb丢失...

heimao0097

再请教，如果表格里还含有不仅两行数据部分内容相同，多行数据部分内容相同，如下图，该如何写代码。

coolall

1. Sub run()
   
2. For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
3.     If Cells(i, 2) = Cells(i + 1, 2) Or Cells(i + 1, 2) = "" Then
   
4. ‘把 and 列的条件去掉 就可以实现你的逻辑
   
5.         If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 5) = Cells(i + 1, 5) And Cells(i, 6) = Cells(i + 1, 6) Then
   
6.             strn = "A" & Trim(Str(i)) & ":I" & Trim(Str(i))
   
7.             Range(strn).Select
   
8.             Selection.Interior.ColorIndex = 6
   
9.             strn = "A" & Trim(Str(i + 1)) & ":I" & Trim(Str(i + 1))
   
10.             Range(strn).Select
    
11.             Selection.Interior.ColorIndex = 6
    
12.         End If
    
13.     End If
    
14. Next i
    
15. End Sub

复制代码

coolall

1. Sub run()
   
2. For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
3.     If Cells(i, 2) = Cells(i + 1, 2) Or Cells(i + 1, 2) = "" Then
   
4.         If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 5) = Cells(i + 1, 5) And Cells(i, 6) = Cells(i + 1, 6) Then
   
5.             strn = "A" & Trim(Str(i)) & ":I" & Trim(Str(i))
   
6.             Range(strn).Select
   
7.             Selection.Interior.ColorIndex = 6
   
8.             strn = "A" & Trim(Str(i + 1)) & ":I" & Trim(Str(i + 1))
   
9.             Range(strn).Select
   
10.             Selection.Interior.ColorIndex = 6
    
11.         End If
    
12.     End If
    
13. Next i
    
14. End Sub

复制代码