两个不同工作表数据对比谢谢

li446425169 · 发表于 2022-12-18 11:27

本帖最后由 li446425169 于 2022-12-18 13:48 编辑

按照日期工作表对比
1.本工作簿只会有3个工作表（首页、日期1、日期2）

第一个工作表始终是首页，第二个工作表日期肯定在前，第二个工作表日期会是第一个工作表日期的后一天
工作表对比的数据最多500行
2.对比2个日期工作表里面数据变化
对比需求（靠前日期里标记紫色为整行取消或者数量变动，靠后日期里标记黄色为整行增加或者数量变动，）
a.靠后日期的工作表里面数据如果一整行都没有在靠前日期工作表里出现，那将此行单元格底色标记为黄色
   如果靠后日期工作表里面A列-D列都在靠前工作表里面出现（A列-D列必须全部相同），只是E列数量和靠前工作表里的数量不同，则只需要标记数量单元格为黄色
   标记整行都是黄色说明是此行数据全部是新增，标记数量为黄色说明只是此行数量变动。
   标记黄色只出现在靠后日期工作表（黄色代表新增或者数量变动）

b.靠前日期的工作表里面数据如果一整行都没有在靠后日期工作表里出现，那将此行单元格底色标记为紫色
   如果靠前日期工作表里面A列-D列都在靠后工作表里面出现（A列-D列必须全部相同），只是E列数量和靠后工作表里的数量不同，则只需要标记数量单元格为紫色
   标记整行都是紫色说明此行数据相对于后一个工作表是取消，标记数量为紫色说明只是此行数量变动
   标记紫色只出现在靠前日期工作表（紫色代表取消或者数量变动）

哪位老师有空请帮助，谢谢

fzxba · 发表于 2022-12-18 12:19

Sub test1()
Dim vData(2 To 3), Dict(2 To 3) As Object
Dim i As Long, j As Long, k As Integer
Dim nColor As Long, strKey As String
For k = LBound(vData) To UBound(vData)
Set Dict(k) = CreateObject("Scripting.Dictionary")
With Worksheets(k).Range("A1").CurrentRegion
.Interior.Color = xlNone
vData(k) = .Value
End With
For i = 2 To UBound(vData(k))
strKey = vbNullString
For j = 1 To 4
strKey = strKey & "|" & vData(k)(i, j)
Next
Dict(k).Add strKey, vData(k)(i, j)
Next
Next
For k = LBound(Dict) To UBound(Dict)
nColor = Array(14336204, 65535)(-(k = 3))
For i = 2 To UBound(vData(k))
strKey = vbNullString
For j = 1 To 4
strKey = strKey & "|" & vData(k)(i, j)
Next
With Worksheets(k)
If Dict(5 - k).Exists(strKey) Then
If vData(k)(i, 5) <> Dict(5 - k)(strKey) Then
.Cells(i, 5).Interior.Color = nColor
End If
Else
.Cells(i, 1).Resize(, UBound(vData(k), 2)).Interior.Color = nColor
End If
End With
Next
Set Dict(5 - k) = Nothing
Next
Beep
End Sub

复制代码

fzxba · 发表于 2022-12-18 12:24

不同工作表数据对比.rar (35.24 KB, 下载次数: 30)

li446425169 · 发表于 2022-12-18 13:49

fzxba 发表于 2022-12-18 12:24

太感谢了，谢谢

准提部林 · 发表于 2022-12-18 14:18

與樓上一樣方法//

Xl0000328.rar (26.25 KB, 下载次数: 15)

chsconan · 发表于 2022-12-20 22:44

这个挺好的我觉可以继续提升

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

[已解决] 两个不同工作表数据对比谢谢

评分

评分

评分

评分

[已解决] 两个不同工作表数据对比 谢谢

评分

评分

评分

评分

[已解决] 两个不同工作表数据对比谢谢