SELECT *
FROM Table2 LEFT OUTER JOIN Table1
ON Table2.A2 = Table1.A1
UNION
SELECT *
FROM Table1 LEFT OUTER JOIN Table2
ON Table1.A1 = Table2.A2

Sub cleare()

For Each sh In Sheets
If sh.Name <> "Лист1" Then
a = sh.Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & a).ClearContents
End If
Next

End Sub

Public Sub Распред()
T = Timer

For Each sh In Sheets
sh.Cells(1, 1).Value = "фраза"
Next sh
 
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    Sheets(Range("B" & i).Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Range("A" & i).Value
Next i

Debug.Print Timer - T
MsgBox "Я всё сделал!"

End Sub

Sub auto()

For Each sh In Sheets
sh.Cells(1, 1).Value = "фраза"
Next sh

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Sheets(Range("B" & i).Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Range("A" & i).Value
Next i

End Sub

Dim r_text
For c = 1 To Len(TextBox1)
If Mid(TextBox1, c, 1) = Chr(10) Then
Count = Count + 1
End If
Next c
r_text = Split(TextBox1, Chr(10))
For i = 0 To Count
SQLCode = SQLCode & " " & Chr(34) & r_text(i) & Chr(34) & " " & Chr(38) & " " & "chr(10)" & " " & Chr(38)
Next i
SQLCode = Left(SQLCode, Len(SQLCode) - 11)
Range("A1").value=SQLCode

r = Cells(Rows.Count, 6).End(xlUp).Row
For k = 2 To r
If Range("F" & k).Value = 2 Then
Range("I" & k).Value = Range("B" & k).Value
End If
Next k
For i = 2 To r
If Range("I" & i).Value = "" Then
Range("I" & i).Value = Range("I" & i).Offset(-1, 0).Value
End If
Next

r=cells(rows.count,6).end(xlup).row 
For i = 2 to r
if Range("F"&i).value=2 then
Range("I"&i).value=Range("B"&i).value
end if
next i

a = Cells(Rows.Count, 7).End(xlUp).Row
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[" & a - 1 & "]C)"

Sub SV()

Row = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To Row
If Range("C" & i) <> "стоп" And Range("C" & i) <> "вперед" Then
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = Range("A" & i)
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Value = Range("B" & i)
End If
Next i

End Sub