比较Range_1和Range_2，保持Range_1的差异？
比较Range_1和Range_2，保持Range_1的差异？
提问于 2021-12-25 06:34:50
我使用下面的代码来比较rng1和rng2，并显示MsgBox中的所有差异。代码可以工作，但我需要清除来自rng1的所有值，并且只保留差异，each difference in one cell。一如既往，我们非常感谢你的帮助。
Option Explicit
Sub Test_Copied_Data2()
Dim Sh1 As Worksheet: Set Sh1 = Sheets("Auto")
Dim Sh2 As Worksheet: Set Sh2 = Sheets("Closed_Items")
Dim rng1 As Range, rng2 As Range, A As Range, LastRow As Long
Set rng1 = Sh1.Range("A2:A22")
Dim Count_rng1 As Long
Count_rng1 = WorksheetFunction.CountA(rng1)
If Count_rng1 = 0 Then Exit Sub
LastRow = Sh2.Cells(Rows.Count, "B").End(xlUp).Row
Set rng2 = Sh2.Range("B" & Count_rng1 & ":" & "B" & LastRow)
Dim Msg As String
Msg = "These Item not found in sheet 'Closed_Items' : " & vbNewLine
For Each A In rng1
If Len(A.value) > 0 And Application.CountIf(rng2, A.value) = 0 Then
Msg = Msg & A.value & vbNewLine
End If
Next
Msg = Left(Msg, Len(Msg) - 2)
MsgBox Msg
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2021-12-25 07:36:02
Dim v
'...
'...
For Each A In rng1
v = A.Value
If Len(v) > 0 Then
If Application.CountIf(rng2, v) = 0 Then
Msg = Msg & v & vbNewLine
Else
A.clearcontents
End if
End If
Next页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/70478358
复制相关文章
相似问题
腾讯云开发者
