怎样用宏识别比较两个表中数据的异同

naizhu2 · 发表于 2019-1-22 21:20

原表数据是参照表，比较表是改动后的表，因为想知道改动表中的哪些数据被改动了，而且真实数据的原表和改动表有长达500多行的数据，列宽也达到10多列，不太可能去核对每一个数据哪些发生了变动，
所以想问又没偶宏能够自动检测数比较表中的哪些数据和原表不一样，并以红色表示出来比如比较中的G5和E6单元格，当然如果有可能（只是如果，因为不知道难度是否太大），最好能在比较表中的最后列增加一个标记的数字2，表示提醒
统计人员这一行有数据被改动。

cjc209 · 发表于 2019-1-22 21:45

Sub 两表单元格比较()
arr = Sheet1.UsedRange
brr = Sheet2.UsedRange
For i = 1 To UBound(arr)
      For j = 1 To UBound(arr, 2)
         If arr(i, j) <> brr(i, j) Then
            Sheet1.Cells(i, j).Interior.Color = vbYellow
            Sheet2.Cells(i, j).Interior.Color = vbYellow
         End If
      Next j
Next i
End Sub

ivccav · 发表于 2019-1-22 22:00

比较表_.zip (20.14 KB, 下载次数: 102)

cjc209 · 发表于 2019-1-22 22:03

ivccav 发表于 2019-1-22 22:00

非常简单搞的复杂化了

cjc209 · 发表于 2019-1-22 22:03

我的代码还在审核中

cjc209 · 发表于 2019-1-22 22:04

就是几句代码的事情

cjc209 · 发表于 2019-1-22 22:06

其实就是两个对应数组比较有差异就在相对应的单元格上背景色就完了

cjc209 · 发表于 2019-1-22 22:06

这类的题目没有难度

cjc209 · 发表于 2019-1-22 22:07

再发
Sub 两表单元格比较()
arr = Sheet1.UsedRange
brr = Sheet2.UsedRange
For i = 1 To UBound(arr)
      For j = 1 To UBound(arr, 2)
         If arr(i, j) <> brr(i, j) Then
            Sheet1.Cells(i, j).Interior.Color = vbYellow
            Sheet2.Cells(i, j).Interior.Color = vbYellow
         End If
      Next j
Next i
End Sub

cjc209 · 发表于 2019-1-22 22:11

直接上附件代码要审核

		自动登录	找回密码
密码			免费注册

[求助] 怎样用宏识别比较两个表中数据的异同

评分

评分

最新热点 /1