Question

如何用宏找出EXCEL表格中完全相同的内容~

是这样的我现在有两个表：一个表里是我们公司的所有员工的名字不过都是用拼音的，在另一个表中有一部分我们的员工名字 也是用拼音， 我该怎么用宏 进行快速的搜索到两个表中相同的人名字 并且用其他颜色标记出来呢~

Answer 1

'试下, 我假设了名字在A列,没有做优化,循环可能有点慢.
Sub Test1()
Dim iSheet1 As Worksheet
Dim iSheet2 As Worksheet
Dim iRange1 As Range
Dim iRange2 As Range
Dim iRangeTemp As Range

Set iSheet1 = Worksheets("Sheet1")
Set iSheet2 = Worksheets("Sheet2")

For Each iRange1 In iSheet1.Range("A:A")
If Trim(iRange1) <> "" Then
Set iRangeTemp = iSheet2.Range("A:A").Find(iRange1, LookIn:=xlValues)

If iRangeTemp Is Nothing Then
Else
If iRange1 = iRangeTemp Then
iRange1.Interior.ColorIndex = 6
iRangeTemp.Interior.ColorIndex = 6
'MsgBox iRangeTemp.Address
Else
For Each iRange2 In iSheet2.Range("A:A")
If iRange1 = iRange2 Then
iRange1.Interior.ColorIndex = 6
iRange2.Interior.ColorIndex = 6
Exit For
Else
End If
Next
End If
End If

End If
Next

End Sub

追问

我试了还是不行啊 怎么回事 能不能加你QQ啊~

追答

你发格式相同的表格给我，我帮你调试下，
邮箱，我的用户名+@163.com

追问

谢谢 哥们 了 今天弄好了~ 非常感谢您的分享~ 有些东西 自己研究研究 还是挺好的~

Answer 2

焗油