function to remove duplicates from different sheets

Hello everybody
Is there a UDF function that extract distinct values from different sheets..?
Say I have duplicate values in Range ("A1:A20") in two different sheets and I want to extract the distinct values from the two lists ..
Is there a function that can do that task?

I have this code that do that task of extracting unique lists from multi sheets..

Sub UniqueId()
For j = 2 To Sheets.Count
    With Sheets(j)
    Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row)
        For i = 1 To deb.Rows.Count
            If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1)
        Next i
    End With
Next j
 
    roy = Split(Mid(raj, 2), ",")
    Sheets(1).Range("C4").Resize(UBound(roy) + 1) = Application.Transpose(roy)
End Sub

But it extracts a blank cell which is considered as a unique value.. I want to get rid of that blank unique value

Sub UniqueId()
For j = 2 To Sheets.Count
    With Sheets(j)
    Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row)
        For i = 1 To deb.Rows.Count
            If deb(i, 1) <> "" Then
              If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1)
            End If
        Next i
    End With
Next j
 
    roy = Split(Mid(raj, 2), ",")
    Sheets(1).Range("C4").Resize(UBound(roy) + 1) = Application.Transpose(roy)
End Sub

Great Great Thank you very much
Is there a function that I can use to do the same by selecting my ranges from different sheets?

Is there a function? or I have to use codes ?

Okay
As for this wonderful code
I want to specify two sheets only sheet named (Result1) and sheet named (Export1).. Can I edit the code to be able to deal these two sheets?

Sub UniqueId()
For j = 2 To Sheets.Count
    With Sheets(j)
    Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row)
        For i = 1 To deb.Rows.Count
            If deb(i, 1) <> "" Then
              If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1)
            End If
        Next i
    End With
Next j
 
    roy = Split(Mid(raj, 2), ",")
    Sheets(1).Range("C4").Resize(UBound(roy) + 1) = Application.Transpose(roy)
End Sub

Hi YasserKhalil,
maybe so

Dim v
For Each v In Array("Result1", "Export1")
    With Sheets(v)
        Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row)
        For i = 1 To deb.Rows.Count
            If deb(i, 1) <> "" Then
                If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1)
            End If
        Next i
    End With
Next v
...

Thank you very much for great help in this great forum