用vba比对两表数据差异

河洛张红峰

用vba代码比对表1和表2数据，在表2中标注出与表1内容不同的单元格

今铭昔

清风竹-

请看附件。

山菊花

供参考。

河洛张红峰

山菊花 发表于 2024-4-8 13:59
供参考。

非常感谢。非常感谢，我要认真学习学习

zhangcheng6688

学习一下
Sub test()
lastr = Sheets("表2").Cells(Rows.Count, "i").End(xlUp).Row
arr = Sheets("表2").Range("b2:i" & lastr)
lastr1 = Sheets("表1").Cells(Rows.Count, "i").End(xlUp).Row
brr = Sheets("表1").Range("b2:i" & lastr1)
For i = 1 To UBound(arr)
   For j = 1 To UBound(brr)
      If arr(i, 8) = brr(j, 8) Then
         For x = 1 To UBound(arr, 2)
            If arr(i, x) <> brr(j, x) Then
               Sheets("表2").Cells(i + 1, x + 1).Interior.Color = vbYellow
            End If
         Next
         GoTo x
      End If
   Next
   For y = 1 To UBound(arr, 2)
      Sheets("表2").Cells(i + 1, y + 1).Interior.Color = vbYellow
   Next
x:
Next
End Sub

河洛张红峰

清风竹- 发表于 2024-4-8 13:49
请看附件。

谢谢大神！不胜感激

河洛张红峰

zhangcheng6688 发表于 2024-4-8 14:18
学习一下
Sub test()
lastr = Sheets("表2").Cells(Rows.Count, "i").End(xlUp).Row

非常感谢！非常感谢！向您学习

ykcbf1100

凑个热闹，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.8
   
2.     With Sheets("表1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 9)
   
5.     End With
   
6.     On Error Resume Next
   
7.     With Sheets("表2")
   
8.         .Cells.Interior.ColorIndex = 0
   
9.         r = .Cells(Rows.Count, 1).End(3).Row
   
10.         brr = .[a1].Resize(r, 9)
    
11.         For i = 2 To UBound(brr)
    
12.             For j = 1 To UBound(brr, 2)
    
13.                 If brr(i, j) <> arr(i, j) Then
    
14.                     .Cells(i, j).Interior.ColorIndex = 6
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.     End With
    
19.     MsgBox "OK！"
    
20. End Sub
    
21. 
    

复制代码