写入sheet3时，vbaExcel中的过程调用或参数无效

Question

Sub Duplicate()

Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range

Set ws = ThisWorkbook.Sheets("Sheet3")    
xTitleId = "KutoolsforExcel"    
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)    
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)

For Each Rng1 In WorkRng1    
    rng1Value = Rng1.Value
    For Each Rng2 In WorkRng2
        If rng1Value = Rng2.Value Then
            MsgBox rng1Value            
            Rng1.Interior.Color = VBA.RGB(255, 0, 0)
        Else
            ws.Cells("A2") = rng1Value            
            Exit For
        End If
    Next
Next

End Sub