Excel宏编程代码，根据混合的名次合并计算进退值

原始的期中名次，保存在sheet4中，以sheet4的C和D来存储期末名次和进退值

期末名次在Sheet5:

由于sheet4和sheet5是乱序的，所以需要匹配合并，先用Excel查看代码：

直接上代码：

Sub 合并名次排序()
arr4A = Worksheets("sheet4").Range("A1")  '选择sheet4 A列
arr4A = Worksheets("sheet4").UsedRange
arr4B = Worksheets("sheet4").Range("B1")  '选择sheet4 B列
arr4B = Worksheets("sheet4").UsedRange

arr5A = Worksheets("sheet5").Range("A1")  '选择选择sheet5 A列
arr5A = Worksheets("sheet5").UsedRange
arr5B = Worksheets("sheet5").Range("B1")  '选择选择sheet5 B列
arr5B = Worksheets("sheet5").UsedRange

Dim A4Row As Long  'sheet4 列的行数
Dim A5Row As Long  'sheet5 A列的行数

A4Row = Sheet4.Range("A" & Rows.Count).End(xlUp).Row    'Sheet4 A列不带空格的行数
A5Row = Sheet5.Range("A" & Rows.Count).End(xlUp).Row    'Sheet5 A列不带空格的行数

Set d = CreateObject("Scripting.Dictionary")   '设置个字典类型的容器，d(s)是字典，键值对，键是姓名，值是名次
ReDim brrc(1 To A4Row, 1)   '设置新的待写入C列数
ReDim brrd(1 To A4Row, 1)   '设置新的待写入D列数

For n = 2 To A5Row           '循环Sheet5 A列,从第二行开始，看你需要从哪个行开始
    s = arr5A(n, 1)               '将从第二行开始的读取姓名
    d(s) = arr5B(n, 2)            '将姓名和名次组装成键值对存储在d中
Next

For n = 2 To A4Row           '循环Sheet4 A列数据,从第二行开始，看你需要从哪个行开始
    s = arr4A(n, 1)               '将从第二行开始的读取姓名
    If d.Exists(s) Then  '如果s这个值不在字典d里，说明不重复，就加入brr()第一列中,如果单元格是空格就跳过
      i = i + 1
    brrc(i, 1) = d(s)   '根据名字取出对应的期末名次存入brrc，代表C列数据
    End If
Next

For n = 2 To A4Row           '循环B列数据,从第二行开始，看你需要从哪个行开始
    sb = arr4A(n, 2)               '将从第二行开始的数据全部塞入s里
    j = j + 1
    sc = brrc(j, 1)
    brrd(j, 1) = sb - sc    'B列减去C列值，代表进退值
Next
Worksheets("sheet4").[C2].Resize(UBound(brrc), 1) = Application.Index(brrc, 0, 2)
Worksheets("sheet4").[D2].Resize(UBound(brrd), 1) = Application.Index(brrd, 0, 2)
End Sub

最终运行效果：