在EXCEL能不能把两个表里面名字相同的SHEET对比,把不同的地方用红字表示啊?

wsp_ping 2002-03-14 09:52:05
在EXCEL能不能把两个表里面名字相同的SHEET对比,把不同的地方用红字表示啊?
...全文
217 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yangzhaoyu 2002-03-14
  • 打赏
  • 举报
回复
Private Sub test()
Dim sheet1(1 To 2) As Worksheet

Set sheet1(1) = Excel.Workbooks(1).Sheets("Sheet1")
Set sheet1(2) = Excel.Workbooks(2).Sheets("Sheet1")
Debug.Print sheet1(1).Cells(1, 1)
For i = 1 To 10
For j = 1 To 10
If sheet1(1).Cells(i, j) = sheet1(2).Cells(i, j) Then
For K = 1 To 2
sheet1(K).Cells(i, j).Font.Color = RGB(255, 0, 0)
Next
End If
Next
Next
End Sub

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧