' Объединить
Sub Union()
     Dim ADO As New ADO
     ADO.Query ("SELECT * FROM [Лист1$A1:A9] UNION SELECT * FROM [Лист1$B1:B5];")
     Range("D1").CopyFromRecordset ADO.Recordset
End Sub

' Объединить все
Sub UnionAll()
     Dim ADO As New ADO
     ADO.Query ("SELECT * FROM [Лист1$A1:A9] UNION ALL SELECT * FROM [Лист1$B1:B5];")
     Range("F1").CopyFromRecordset ADO.Recordset
End Sub

' Пересечение
Sub Intersect()
     Dim ADO As New ADO
     ADO.Query ("SELECT [Лист1$A1:A9].F1 FROM [Лист1$A1:A9] left join [Лист1$B1:B5] on [Лист1$A1:A9].[F1] = [Лист1$B1:B5].[F1] where [Лист1$B1:B5].[F1] is not null;")
     Range("H1").CopyFromRecordset ADO.Recordset
End Sub

' Разность
Sub Except()
     Dim ADO As New ADO
     ADO.Query ("SELECT * FROM [Лист1$A1:A9] left join [Лист1$B1:B5] on [Лист1$A1:A9].[F1] = [Лист1$B1:B5].[F1] where [Лист1$B1:B5].[F1] is null;")
     Range("J1").CopyFromRecordset ADO.Recordset
End Sub

' Разность все
Sub ExceptAll()
     Dim ADO As New ADO
     ADO.Query ("SELECT * FROM [Лист1$A1:A9] left join [Лист1$B1:B5] on [Лист1$A1:A9].[F1] = [Лист1$B1:B5].[F1] where [Лист1$B1:B5].[F1] is null " & _
                "      union " & _
                "SELECT * FROM [Лист1$B1:B5] left join [Лист1$A1:A9] on [Лист1$B1:B5].[F1] = [Лист1$A1:A9].[F1] where [Лист1$A1:A9].[F1] is null ;")
     Range("L1").CopyFromRecordset ADO.Recordset
End Sub

ADO.Query "SELECT a.F1 FROM [Лист1$A1:A9] a INNER JOIN [Лист1$B1:B5] b ON a.F1 = b.F1"

"SELECT [Лист1$A1:A9].F1 FROM [Лист1$A1:A9]"

"SELECT * FROM [Лист1$A1:A9]"

"where [Лист1$B1:B5].[F1] is null;"

SELECT [name], COUNT([name]) FROM [tab] GROUP BY [name];

SELECT a.[name], c.[cnt]
FROM [tab] a LEFT JOIN (SELECT b.[name], COUNT(b.[name]) AS cnt FROM [tab] b GROUP BY b.[name]) c ON a.[name]=c.[name];

    ADO.Query "SELECT a.F1 FROM [Лист1$A1:A9] a, [Лист1$B1:B5] b where a.F1 = b.F1"

Sub Example2()
     Dim ADO As New ADO
      
     ADO.Query "SELECT a, a + 5 AS d, a + d AS e FROM " & _
               "(" & _
               "SELECT 10 AS a, 20 AS b, 30 AS c FROM [Лист1$A1:A1]" & _
               ")"
      
     Range("E1").CopyFromRecordset ADO.Recordset  
     ADO.Disconnect
End Sub

SELECT a, a + 5 AS d, a + d AS e FROM
(  
SELECT 10 AS a, 20 AS b, 30 AS c FROM dual
)

SELECT a, d, a + d AS e FROM  
(
SELECT a, a + 5 AS d FROM
(  
SELECT 10 AS a, 20 AS b, 30 AS c FROM dual
))

"SELECT * FROM data WHERE left(id,1)=9"