如何在两个EXCEL表中查找出不同的数据。
发布网友
发布时间：2022-04-24 12:09
共2个回答
热心网友
时间：2022-04-18 18:37
试试：
首先，把期中一个表的数据复制另一个工作表中。
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”
不知对你有用吗？
热心网友
时间：2022-04-18 19:55
