Excel VBA中的多表数据匹配与转移

在日常的工作中，我们经常需要处理不同工作表之间的数据对比与转移。今天我将介绍如何使用Excel VBA来实现跨工作表的数据匹配，并将匹配结果转移到新的工作表中。

背景介绍

假设我们有一个Excel工作簿，包含三个工作表：X、Y和Z。其中：

• 工作表X有100行数据，填充在A和B列。
• 工作表Y有500行数据，填充在A和B列。
• 工作表Z初始为空，但有A到D四列。

我们的目标是：在X和Y工作表的A列中查找匹配的值，并将匹配的行数据转移到Z工作表。

VBA代码实现

首先，我们需要一个主函数来控制整个流程：

Sub Main() Dim wsX As Worksheet, wsY As Worksheet, wsZ As Worksheet Dim nextRowZ As Long, i As Long, matchingRowY As Long Set wsX = ThisWorkbook.Worksheets("X") Set wsY = ThisWorkbook.Worksheets("Y") Set wsZ = ThisWorkbook.Worksheets("Z")