在excel中利用VBA编写将指定表格内容求并集

在Excel中，你可以使用VBA（Visual Basic for Applications）来编写宏，实现两个或更多表格内容的并集操作。以下是一个简单的步骤指南：

1. **打开VBA编辑器**:
- 按下 `Alt + F11` 或者从 "开发" 菜单选择 "Visual Basic" 来打开VBA编辑器。

2. **创建新的模块**:
- 在左侧的项目窗口中，右键点击 "插入" -> "模块"，然后你会看到一个新的空白工作区用于编写VBA代码。

3. **编写代码**:
使用下面的示例代码作为起点。假设 `Sheet1` 和 `Sheet2` 分别是你需要合并数据的两个工作表，而目标结果存储在 `Sheet3` 的 `A2` 开始位置：

Sub UnionTables()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")

    ' 获取每个工作表的数据区域
    Dim rng1 As Range, rng2 As Range, rngUnion As Range
    Set rng1 = ws1.Range("A1", ws1.Cells(ws1.Rows.Count, "A").End(xlUp))
    Set rng2 = ws2.Range("A1", ws2.Cells(ws2.Rows.Count, "A").End(xlUp))

    ' 创建并集范围
    Set rngUnion = Application.Union(rng1, rng2)

    ' 将并集写入到Sheet3
    rngUnion.Copy Destination:=ws3.Range("A2")
End Sub

4. **运行宏**:
- 点击 "立即窗口" 来测试代码是否有效，如果没问题，可以在代码前添加 `Call UnionTables()` 来运行它。
5. **注意**:
- 如果工作表名称或范围有误，请自行修改。
- VBA并集操作会保留所有唯一的值，如果有重复项，只会出现一次。