加入2个表格（没有使用Power Query - MacBook，Index/Match太慢）- 可能的VBA选项？

以下是一个使用VBA的示例代码，用于将两个表格合并为一个表格：

Sub MergeTables()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Long
    
    ' 设置工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")
    
    ' 获取表格1的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    
    ' 复制表格1到表格3
    ws1.Range("A1").EntireRow.Copy ws3.Range("A1")
    ws1.Range("A2:A" & lastRow1).EntireRow.Copy ws3.Range("A2")
    
    ' 获取表格2的最后一行
    lastRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
    
    ' 复制表格2到表格3
    ws2.Range("A2:A" & lastRow2).EntireRow.Copy ws3.Range("A" & lastRow1 + 2)
    
    ' 在表格3中使用Index/Match填充其他列
    For i = 2 To lastRow1 + lastRow2
        For j = 2 To ws3.Cells(1, ws3.Columns.Count).End(xlToLeft).Column
            If ws3.Cells(i, j).Value = "" Then
                ws3.Cells(i, j).Formula = "=INDEX(Sheet1!" & ws1.Cells(1, j).Address(False, False) & _
                                            ",MATCH($A" & i & ",Sheet1!$A:$A,0))"
                ws3.Cells(i, j).Value = ws3.Cells(i, j).Value
            End If
        Next j
    Next i
    
    ' 清除表格1和表格2的内容
    ws1.Range("A2").EntireRow.Resize(lastRow1 - 1).ClearContents
    ws2.Range("A2").EntireRow.Resize(lastRow2 - 1).ClearContents
    
    ' 在表格3中重新排序数据
    ws3.Sort.SortFields.Clear
    ws3.Sort.SortFields.Add Key:=ws3.Range("A2:A" & lastRow1 + lastRow2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws3.Sort
        .SetRange ws3.Range("A1").CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

此代码将表格1复制到表格3，然后将表格2的数据追加到表格3的末尾。然后，使用Index/Match函数将表格3的其他列填充为正确的值。最后，清除表格1和表格2的内容，并在表格3中重新排序数据。请确保将代码中的工作表名称（“Sheet1”，“Sheet2”和“Sheet3”）更改为您实际使用的工作表名称。

请注意，此方法将使用VBA的循环和函数计算来完成任务，可能会比使用Power Query或其他更高级的方法慢一些。但是，如果Index/Match函数是您唯一的选项，并且数据量不大，那么这个方法可能仍然是可行的。