EXCEL中如何利用VBA实现数据自动配对？

Question

如图，每天要进行很多类似的操作，所以想通过VBA来简化这个过程，谢谢大佬。

Answer 1

要利用 VBA 在 Excel 中实现数据自动配对，你可以按照以下步骤进行操作：
1. 打开 Excel，按下 `Alt + F11` 组合键打开 Visual Basic Editor。
2. 在左侧的“项目资源管理器”窗格中，找到并展开你的工作簿（Workbook）。
3. 双击工作簿的名称，在“代码窗口”中输入以下 VBA 代码：
```vba
Sub 自动配对()
Dim 第一列 As Range
Dim 第二列 As Range
Dim 结果区域 As Range
Dim 单元格 As Range

' 设置第一列数据范围
Set 第一列 = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

' 设置第二列数据范围
Set 第二列 = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)

' 设置结果区域起始单元格
Set 结果区域 = Range("D1")

For Each 单元格 In 第一列
' 查找相应的配对值
Set 匹配单元格 = 第二列.Find(单元格.Value, LookIn:=xlValues, LookAt:=xlWhole)

' 如果找到了配对值，则将其写入结果区域
If Not 匹配单元格 Is Nothing Then
结果区域.Value = 单元格.Value
结果区域.Offset(0, 1).Value = 匹配单元格.Value
Set 结果区域 = 结果区域.Offset(1, 0)
End If
Next 单元格
End Sub
```
4. 编辑代码中的数据范围和结果区域。将 `Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)` 替换为你实际要配对的第一列数据范围，将 `Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)` 替换为你实际要配对的第二列数据范围，将 `Range("D1")` 替换为你希望结果显示的起始位置。
5. 关闭 Visual Basic Editor。
6. 在 Excel 中按下 `Alt + F8` 组合键打开宏对话框。
7. 选择刚刚创建的宏（自动配对），点击“运行”按钮。
以上 VBA 代码将遍历第一列中的每个单元格，在第二列中查找相应的配对值，并将结果写入指定的结果区域。可以根据实际情况调整代码和数据范围，以实现你想要的自动配对功能。

Answer 2

你好，可以使用VBA编程语言来实现数据的自动配对。下面是一个简单的示例，演示如何使用VBA将两列数据进行配对并写入到另一列中。

```vba
Sub 数据自动配对()
Dim 原数据范围 As Range
Dim 配对数据范围 As Range
Dim 配对结果范围 As Range
Dim 原数据单元格 As Range
Dim 配对数据单元格 As Range
Dim 配对结果单元格 As Range
Dim 原数据行数 As Long
Dim 配对数据行数 As Long
Dim 配对结果行数 As Long
Dim i As Long
Dim j As Long

' 设置原数据范围
Set 原数据范围 = Range("A1:A10")
' 设置配对数据范围
Set 配对数据范围 = Range("B1:B10")
' 设置配对结果范围
Set 配对结果范围 = Range("C1:C20")

' 获取原数据行数
原数据行数 = 原数据范围.Rows.Count
' 获取配对数据行数
配对数据行数 = 配对数据范围.Rows.Count
' 清空配对结果范围
配对结果范围.ClearContents

' 遍历原数据范围和配对数据范围，进行配对
配对结果行数 = 1
For i = 1 To 原数据行数
Set 原数据单元格 = 原数据范围.Cells(i, 1)
For j = 1 To 配对数据行数
Set 配对数据单元格 = 配对数据范围.Cells(j, 1)
Set 配对结果单元格 = 配对结果范围.Cells(配对结果行数, 1)

' 判断原数据和配对数据是否相等
If 原数据单元格.Value = 配对数据单元格.Value Then
' 将配对结果写入到配对结果范围中
配对结果单元格.Value = 原数据单元格.Value
配对结果行数 = 配对结果行数 + 1
End If
Next j
Next i
End Sub
```

我们假设原数据位于列A，配对数据位于列B，配对结果将写入列C。你可以根据实际情况修改这些范围。该VBA宏会遍历原数据和配对数据，如果两个数据相等，则将结果写入到配对结果范围中。

你可以按下Alt + F11，打开VBA编辑器，然后插入一个新的模块，并将上述代码复制粘贴到模块中。运行宏后，数据将自动配对并写入到指定的列中。

请注意，这只是一个简单的示例，你可能需要根据你的实际需求进行修改和扩展。