Excel vba 如何关联另一张表

在Excel VBA中，可以使用"Range.WorksheetFunction.Union"方法来关联另一张表。具体步骤如下：

假设你已经有两张工作表（表1和表2），你想要将表2的数据与表1的数据关联起来。

步骤 1: 打开Excel VBA编辑器

首先，你需要打开Excel VBA编辑器。你可以通过在Excel中按Alt + F11键来打开它。

步骤 2: 插入模块

在VBA编辑器中，选择"插入" -> "模块"来创建一个新的模块。

步骤 3: 编写代码

在新的模块中，你可以编写以下代码来关联两张表：

Sub AssociateSheets()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim lastCol As Long
    
    ' 假设表1是第一个工作表，表2是第二个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1") ' 更改为你实际的表名
    Set ws2 = ThisWorkbook.Sheets("Sheet2") ' 更改为你实际的表名
    
    ' 找到表1最后一行的位置
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 找到表2最后一行的位置
    lastRow = Application.WorksheetFunction.Max(ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row, lastRow)
    
    ' 确保表1和表2有相同的列数，否则需要调整代码
    lastCol = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
    
    ' 创建一个范围对象来存储关联的数据
    Set rng = ws1.Range("A" & lastRow + 1) ' 在表1的最后一行之后创建新的数据区域
    rng.Value = Application.WorksheetFunction.Transpose(ws2.Range("A1:A" & lastRow)) ' 将表2的数据复制到新的数据区域中
End Sub

这个代码会找到表1和表2中数据区域的最后一行和最后一列，然后将表2的数据复制到表1的最后一行之后的新数据区域中。请注意，你需要根据你的实际情况修改代码中的工作表名和数据范围。

步骤 4: 运行代码

保存并关闭VBA编辑器，然后在Excel中运行这个宏。你可以通过按F5键或者选择"运行" -> "宏"来运行它。

以上就是在Excel VBA中如何关联另一张表的步骤。请注意，这个方法假设两张表中数据的格式和列数是一致的。如果数据格式或列数不一致，你可能需要调整代码以适应你的具体情况。