盘点库存和登记库存差异

7993708 · 发表于 2024-5-11 09:57

本帖最后由 7993708 于 2024-5-11 19:17 编辑

求：盘点库存和登记的库存差异，分别列出来。对不上的用红色字体标示。只有三列都对上的才算正确。复制后的数值不能是文本。谢谢
注：会有空行，会有重复的数据重复的也列出来。英文字母忽略大小写软件是WPS最新版。谢谢

QQ五笔截图未命名.png

limonet · 发表于 2024-5-11 10:09

https://club.excelhome.net/forum ... amp;_dsign=006db5c2跟这个帖子几乎一样，参考二楼，不过，你不一定能运行起来。

7993708 · 发表于 2024-5-11 11:14

limonet 发表于 2024-5-11 10:09
https://club.excelhome.net/forum.php?mod=viewthread&tid=1691746&_dsign=006db5c2跟这个帖子几乎一样， ...

搞不了，不一样;

半百 · 发表于 2024-5-11 11:30

本帖最后由半百于 2024-5-11 11:33 编辑

7993708 · 发表于 2024-5-11 11:38

本帖最后由 7993708 于 2024-5-11 12:21 编辑

半百发表于 2024-5-11 11:30

老师您好，感谢您的帮助，结果是对的，就是复制过去的数据变成了文本格式，还有原数据对不上的没有标志红色，麻烦你了，感谢

一招秒杀 · 发表于 2024-5-11 13:06

1个全连接, 瞬间秒杀，看到楼上那么多变量、数组、循环套循环，感觉就如以前的土法炼钢，真让人头大，要人老命。

7993708 · 发表于 2024-5-11 13:44

一招秒杀发表于 2024-5-11 13:06
1个全连接, 瞬间秒杀，看到楼上那么多变量、数组、循环套循环，感觉就如以前的土法炼钢，真让人头大，要人 ...

请教老师

半百 · 发表于 2024-5-11 15:27

7993708 发表于 2024-5-11 11:38
老师您好，感谢您的帮助，结果是对的，就是复制过去的数据变成了文本格式，还有原数据对不上的没有标志红 ...

Sub 突出显示()
Set d = VBA.CreateObject("Scripting.Dictionary")
With ActiveSheet
arr = .UsedRange
For i = 3 To UBound(arr)
If arr(i, 1) <> "" Then
s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
If Not d.exists(s) Then Set d(s) = New Collection
d(s).Add "a" & i
End If
Next
For i = 3 To UBound(arr)
If arr(i, 5) <> "" Then
s = arr(i, 5) & "|" & arr(i, 6) & "|" & arr(i, 7)
If d.exists(s) Then
Range(d(s)(1)).Resize(1, 3).Font.ColorIndex = 1
d(s).Remove (1)
If d(s).Count = 0 Then d.Remove s
Else
Cells(i, 5).Resize(1, 3).Font.ColorIndex = 3
End If
End If
Next
End With
End Sub

复制代码

feilanga · 发表于 2024-5-11 16:20

........................

7993708 · 发表于 2024-5-11 17:11

feilanga 发表于 2024-5-11 16:20
........................

老师。不好意思，可以忽略英文字母大小写吗？其它没问题了。谢谢你

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

[求助] 盘点库存和登记库存差异