Vba for excel | 根据某列内容合并两个表格

最近有位朋友在处理千牛的后台数据时，需要合并两个表格，两个表格（设为A表格和B表格）的订单号是一致的，其中A表格中的编号会有对应几条记录的情况，而B表格中一个编号只对应一条记录。

由于VBA可以直接在Excel里面执行，为此，我用vba大致解决了下这个问题。

我将两个表格放入同一个excel文件中，分别是不同的sheet。

如：

然后做的就是，根据编号来将b中的数据对应地添到a中，来达到合并的目的。不希望改变表格内容的朋友，建议备份好原来的文件。

点excel钟的“开发工具”，选择“VB编辑器”，然后“添加模块”，在出现的编辑区中输入代码：

Sub mysub()

    Dim RowsCnt_a, ColCnt_a, RowsCnt_b, ColCnt_b As Integer
    Dim RowsCnt_a_value, RowsCnt_b_value As String
    
    RowsCnt_a = 22
    ColCnt_a = 4
    
    RowsCnt_b = 10
    ColCnt_b = 4

    
    For n = 2 To ColCnt_b