不支持Excel VBA SQL JOIN表达式

Sub JoinTables()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Dim cell As Range
    Dim lookupValue As Variant
    
    ' 设置工作表和范围
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set ws3 = ThisWorkbook.Worksheets("Sheet3")
    Set rng1 = ws1.Range("A2:B10") ' 第一个表的范围
    Set rng2 = ws2.Range("A2:B10") ' 第二个表的范围
    Set rng3 = ws3.Range("A2:C10") ' 结果表的范围
    
    ' 清空结果表
    rng3.ClearContents
    
    ' 遍历第一个表的每一行
    For Each cell In rng1.Columns(1).Cells
        lookupValue = cell.Value
        
        ' 在第二个表中查找匹配的行
        Dim matchRow As Range
        Set matchRow = rng2.Columns(1).Find(lookupValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配的行，则将数据复制到结果表中
        If Not matchRow Is Nothing Then
            ws3.Cells(rng3.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = lookupValue
            ws3.Cells(rng3.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = cell.Offset(0, 1).Value
            ws3.Cells(rng3.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = matchRow.Offset(0, 1).Value
        End If
    Next cell
End Sub