多列对比结果相同的删除列

Peny2020 · 发表于 2023-3-22 11:00

本帖最后由 Peny2020 于 2023-3-23 13:28 编辑

请教大家，为什么我这个代码不成功？
要求：B 和 F 列对比，C和H, D 和G 对比，如果这三个对比的结果都是一致的，则所在列删除,否则保留，然后差异的单元格标红。
谢谢

Sub s()

Dim i As Integer
Set d = CreateObject("scripting.dictionary")
Arr = Sheets(1).UsedRange
For i = 2 To UBound(Arr)
If Cells(i, 2) = Cells(i, 6) And Cells(i, 3) = Cells(i, 8) And Cells(i, 4) = Cells(i, 7) Then
Rows(i).Delete shift:=xlUp
Else

End If
Next

End Sub

shiruiqiang · 发表于 2023-3-22 16:57

删除要从下往上删除，如第2行删除，导致第3行变成第2行，漏掉了。建议基础的知识再加强一下

ykcbf1100 · 发表于 2023-3-22 17:12

附件请参考。。。

Peny2020 · 发表于 2023-3-23 08:56

shiruiqiang 发表于 2023-3-22 16:57
删除要从下往上删除，如第2行删除，导致第3行变成第2行，漏掉了。建议基础的知识再加强一下

嗯，谢谢指点

Peny2020 · 发表于 2023-3-23 08:57

ykcbf1100 发表于 2023-3-22 17:12
附件请参考。。。

谢谢，就是还有个差异变红要怎么加进去？

ykcbf1100 · 发表于 2023-3-23 11:04

本帖最后由 ykcbf1100 于 2023-3-23 11:11 编辑

Peny2020 发表于 2023-3-23 08:57
谢谢，就是还有个差异变红要怎么加进去？

那就这样吧。

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

[已解决] 多列对比结果相同的删除列

评分

评分