比较行中的两组单元格,并在Excel中高亮显示同一行的重复项

我正在尝试在Excel中完成某种特定的任务,这似乎超出了我的深度。 我有一个数据集每个行/观察两个五个字的列表,就像这个例子:

http://i.imgur.com/YVge8AB.png?1

我希望能够实现的是突出显示单个行中的5个单词列表中的所有单词。 这两个五字词列表之间的重叠量从一行到另一行不等。 而且我不关心识别不同行中的重复条目。 也就是说,如果可以创build一个可以给出这个macros的macros,

http://i.imgur.com/3w2nfvD.png?1

我在这个网站上search了很多,并使用谷歌来弄清楚如何创build一个macros来做到这一点。 我发现了许多类似的macros,但是我发现的每一个macros都是为了识别两个完整页面之间的所有重复项,或者两个完整的列,或者类似的东西,这与我试图做。 基于我已经能够find的macros,我感觉到做我想做的事情应该是可能的,但是我不太了解Visual Basic来编辑我发现的macros以满足我的需要。

如果可以编程一个macros来做这件事,它会为我节省相当多的时间,否则我正在为我所拥有的两个当前数据集(每个数据集都有150-200个观察值)手动进行重复标识,另外,我计划在未来收集数据,这将需要相同的程序。 除此之外,任何有能力帮助我的macros都可以帮助有类似需求的人。

预先感谢您提供的任何帮助!

尝试条件格式。

select“表2”(例如I2:Mn,其中n是最后一行),I2(左上angular)是活动单元格。 然后使用这个公式:

=OR(I2=$C2:$G2) 

我认为使用Conditional Formatting可能是一个更简单的解决scheme,但使用VBA做到这一点的方法如下:

 Sub HighlightDuplicates() Dim masterList(), highlightList(), rw As Long, col As Long masterList = Range("C1:G150") highlightList = Range("I1:M150") For rw = 1 To UBound(masterList, 1) For col = 1 To UBound(masterList, 2) If highlightList(rw, col) = masterList(rw, col) Then Cells(rw, col).Offset(0, 8).Interior.Color = vbRed End If Next col Next rw End Sub 

在这里,我们读取数组中的两个列表,然后遍历它们来检查匹配。

Offset(0, 8) 0,8 Offset(0, 8)是一个幻数( yikes! ),它根据你的布局得到正确的单元格。