将两个excel取并集并且标记数据来自于哪个excel表格 vba语言

在VBA语言中，要将两个Excel表格取并集并标记数据来自于哪个Excel表格，可以使用以下代码。假设我们要将“表格1”和“表格2”取并集，并将数据来源标记在新加一列中。

Sub MergeTables()

    '指定表格1和表格2的范围
    Dim table1 As Range
    Dim table2 As Range
    Set table1 = Range("A1").CurrentRegion
    Set table2 = Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").CurrentRegion
    
    '在表格1中插入一列，用于标记数据来源
    table1.Columns(table1.Columns.Count + 1).Insert Shift:=xlToRight
    table1.Columns(table1.Columns.Count).Value = "Table1"
    
    '在表格2中插入一列，用于标记数据来源
    table2.Columns(table2.Columns.Count + 1).Insert Shift:=xlToRight
    table2.Columns(table2.Columns.Count).Value = "Table2"
    
    '将表格2中的所有行复制到表格1中
    table2.Copy Destination:=table1.Cells(table1.Rows.Count + 1, 1)
    
    '删除表格1中的重复行
    table1.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
    
End Sub

上述代码中，“Columns.Count”返回表格中列的数量，“xlToRight”指定插入列的方向为向右，而“RemoveDuplicates”函数用于删除表格中的重复行。请注意，该操作将修改原始数据，因此如果您需要保留原始数据，请先备份。