Compare Two columns in Excel and find out missing one, VBA MACRO help

[Jyotirmaya]

I have two columns A & B and have data from A1:A20, B1:B20
I am using the following code

1.Column C =IF(ISERROR(NOT(MATCH(A1:A20,$B$1:$B$20,0))),A1,"")
2.Column D =IF(ISERROR(NOT(MATCH(B1:B20,$A$1:$A$20,0))),B1,"")

In column C I am getting the missing numbers which I have there in Column A but not in Column B
In column D I am getting the missing numbers which I have there in Column B but not in Column A


I want a VBA macro code to do so.

what will be the code ?

 

[Ombir]

Try this:

Sub Jyotirmaya()
Dim i As Long

For i = 1 To 20
    If Len(Cells(i, 1)) <> 0 And Len(Cells(i, 2)) = 0 Then
        Cells(i, 3) = Cells(i, 1)
    ElseIf Len(Cells(i, 1)) = 0 And Len(Cells(i, 2)) <> 0 Then
        Cells(i, 4) = Cells(i, 2)
    End If
Next

End Sub

 

[Jyotirmaya]

Try this:

Sub Jyotirmaya()
Dim i As Long

For i = 1 To 20
    If Len(Cells(i, 1)) <> 0 And Len(Cells(i, 2)) = 0 Then
        Cells(i, 3) = Cells(i, 1)
    ElseIf Len(Cells(i, 1)) = 0 And Len(Cells(i, 2)) <> 0 Then
        Cells(i, 4) = Cells(i, 2)
    End If
Next

End Sub

Hello dear its not working

 

[Ombir]

Post some scenarios from your excel file ?