你的两个表的结构是一样的吗?
试试:
首先,把期中一个表的数据复制另一个工作表中。
1.工具--宏-录制新宏-确定。
2.在宏窗口上“停止录制”
3.工具-宏-宏,点击macro1-编辑,进入一个窗口,把里面的内容全部删除,粘贴下面代码:
Sub 一一对应()
Dim MyRan As Range
Set MyRan = Selection
Dim RowCha As Integer, ColCha As Integer
RowCha = MyRan.Areas(2).Row - MyRan.Areas(1).Row
ColCha = MyRan.Areas(2).Column - MyRan.Areas(1).Column
Dim i As Integer, j As Integer
Dim MyYel As Integer
MyYel = 80
For i = 1 To MyRan.Areas(1).Rows.Count
For j = 1 To MyRan.Areas(1).Columns.Count
If MyRan.Areas(1).Cells(i, j) <> Cells(MyRan.Areas(1).Row + i + RowCha - 1, MyRan.Areas(1).Column + j + ColCha - 1) Then
MyYel = 40 * i Mod 255
MyRan.Areas(1).Cells(i, j).Interior.Color = RGB(255, MyYel, 0)
Cells(MyRan.Areas(1).Row + i + RowCha - 1, MyRan.Areas(1).Column + j + ColCha - 1).Interior.Color = RGB(255, MyYel, 0)
End If
Next j
Next i
End Sub
4.选中第一个,按ctrl,再选另一区域,工具-宏-宏,双击 “高显两列中的不同数据1”
不知对你有用吗?
温馨提示:答案为网友推荐,仅供参考