Macro performance

Hi,

I have macro it will compare data in sheet1 and sheet2.Then it will load unmatched records to another shett.
But i have some lakshs of records approx 1lakhs records.When i run macro it is taking so much time.
How to improve the performance of macro.It is not possible to get results with in minutes.My macro taking alomost 2 to 3 hours finally it is hanging.

Below is the code,
below is the code

Sub Getdata()
Dim LR(2) As Long, TR1 As Long, X As Long, LC As Long
Dim Sh(4) As Worksheet
Dim VarA As Variant, VarB As Variant, VarC As Variant

Set Sh(1) = Sheets("Sheet1")
Set Sh(2) = Sheets("Sheet2")
Set Sh(3) = Sheets("Sheet3")
Set Sh(4) = Sheets("Sheet4")
LR(1) = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
LR(2) = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

LC = Sheets("Sheet1").Range("A1").End(xlToRight).Column
ReDim Var(LC) As Variant

X = 2
With Sh(1)
For TR1 = 2 To LR(1)
    Vfy = "No"
    VarA = ""
    For T = 1 To LC
    VarA = VarA & .Cells(TR1, T)
    Next T
    
    For TR2 = 2 To LR(2)
        VarB = ""
        For T = 1 To LC
        VarB = VarB & Sh(2).Cells(TR2, T)
        Next T
        
        If VarA = VarB Then
        Vfy = "yes"
        Exit For
        End If
     Next TR2
     If Vfy = "No" Then
        For T = 1 To LC
        Sh(3).Cells(X, T) = .Cells(TR1, T)
        Next T
        Sh(3).Cells(X, T) = " Not present in Sheet2"
        X = X + 1
    End If

Next TR1
End With

'**********

X = 2
With Sh(2)
For TR1 = 2 To LR(2)
    Vfy = "No"
    VarA = ""
    For T = 1 To LC
    VarA = VarA & .Cells(TR1, T)
    Next T
    
    For TR2 = 2 To LR(1)
        VarB = ""
        For T = 1 To LC
        VarB = VarB & Sh(1).Cells(TR2, T)
        Next T
        
        If VarA = VarB Then
        Vfy = "yes"
        Exit For
        End If
     Next TR2
     If Vfy = "No" Then
        For T = 1 To LC
        Sh(4).Cells(X, T) = .Cells(TR1, T)
        Next T
        Sh(4).Cells(X, T) = " Not present in Sheet1"
        X = X + 1
    End If
Next TR1
End With
End Sub

This code is developed by one of the forum member.Thanks for his help.Only problem is i have lot of records it is taking time and finally hanging.If you have less number of records
like 20000 ok but i have nearly some lacs of records

If It is not possible with the same code.any one can provide another code for speed up the process

You could try something simple like stopping & starting interfering things like screenupdating etc. If you need to calculate when the macro's running, comment out Application.Calculation lines
Cheers

Sub Getdata()
'   Stop Interfering Thingies
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            Application.DisplayAlerts = False
            Application.Calculation = xlCalculationManual

Dim LR(2) As Long, TR1 As Long, X As Long, LC As Long
Dim Sh(4) As Worksheet
Dim VarA As Variant, VarB As Variant, VarC As Variant

Set Sh(1) = Sheets("Sheet1")
Set Sh(2) = Sheets("Sheet2")
Set Sh(3) = Sheets("Sheet3")
Set Sh(4) = Sheets("Sheet4")
LR(1) = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
LR(2) = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

LC = Sheets("Sheet1").Range("A1").End(xlToRight).Column
ReDim Var(LC) As Variant

X = 2
With Sh(1)
For TR1 = 2 To LR(1)
    Vfy = "No"
    VarA = ""
    For T = 1 To LC
    VarA = VarA & .Cells(TR1, T)
    Next T
    
    For TR2 = 2 To LR(2)
        VarB = ""
        For T = 1 To LC
        VarB = VarB & Sh(2).Cells(TR2, T)
        Next T
        
        If VarA = VarB Then
        Vfy = "yes"
        Exit For
        End If
     Next TR2
     If Vfy = "No" Then
        For T = 1 To LC
        Sh(3).Cells(X, T) = .Cells(TR1, T)
        Next T
        Sh(3).Cells(X, T) = " Not present in Sheet2"
        X = X + 1
    End If

Next TR1
End With

'**********

X = 2
With Sh(2)
For TR1 = 2 To LR(2)
    Vfy = "No"
    VarA = ""
    For T = 1 To LC
    VarA = VarA & .Cells(TR1, T)
    Next T
    
    For TR2 = 2 To LR(1)
        VarB = ""
        For T = 1 To LC
        VarB = VarB & Sh(1).Cells(TR2, T)
        Next T
        
        If VarA = VarB Then
        Vfy = "yes"
        Exit For
        End If
     Next TR2
     If Vfy = "No" Then
        For T = 1 To LC
        Sh(4).Cells(X, T) = .Cells(TR1, T)
        Next T
        Sh(4).Cells(X, T) = " Not present in Sheet1"
        X = X + 1
    End If
Next TR1
End With
'   Restart Interfering Thingies
            Application.ScreenUpdating = True
            Application.EnableEvents = True
            Application.DisplayAlerts = True
            Application.Calculation = xlCalculationManual

End Sub

The reason why its take so long is it is loading and deleting the data over and over. toravietl you need to use arrays so you don't keep reloading the same columns over and over.

toravietl is loading all values of each column in sheet 1 then compares it against each column of data in sheet2, if it finds a match it moves onto the next column, if it doesn't it puts in sheet 3 in the corresponding column. Then does it vice versa on sheet 4.