你在表格上按Alt+F11,在出现的VBA编辑窗口的左边"工程"下面的对象列表中双击你的表格,右边会出现此表的VBA编辑窗口,你粘贴下面的代码:
Private Sub Worksheet_Activate()
y = 4
x = 1
Cells(1, 4).Interior.ColorIndex = 40
Do While Cells(x, y).Value <> ""
a = Cells(x, y).Value
k = 0
For z = 1 To x - 1
If Cells(z, y) = a Then
k = 1
Exit For
End If
Next
If k = 0 Then Cells(x, y).Interior.ColorIndex = 40 ''标记分红底色
x = x + 1
Loop
end sub
但后回到表格,点开另一张表(例如表2),再点回原来的表,就找到了
不是很明白你的问题,使用=vlookup()么?
用vlookup吧