在日常的工作中，我们经常需要处理不同工作表之间的数据对比与转移。今天我将介绍如何使用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")
