Sub
aa()
'只用一个按钮
Dim
r,
c
For
r
=
1
To
10
For
c
=
1
To
5
'区域范围为十行五列
Worksheets("Sheet3").Cells(r,
c)
=
Worksheets("Sheet1").Cells(r,
c)
'复制sheet1的内容
If
Worksheets("Sheet1").Cells(r,
c)
<>
Worksheets("Sheet2").Cells(r,
c)
Then
Worksheets("Sheet3").Cells(r,
c).Interior.ColorIndex
=
3
End
If
Next
Next
End
Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024