谈笑风生华莱士 发表于 2021-10-26 16:29:00

如何生成96个志愿

依据院校表中的分数从高到低生成志愿表

零落的红笺 发表于 2021-11-6 09:15:14

Sub 填写志愿()
Dim ar, br(), i, r, m
Sheet3. = Empty
With Sheet2
r = .Cells(.Rows.Count, 1).End(xlUp).Row
ar = .Range("A3").Resize(r - 2, 5)
End With
Call dsort(ar, 5)
ReDim br(1 To UBound(ar) * 2, 1 To 4)
For i = 1 To UBound(ar)
m = m + 1
br(m, 1) = "志愿" & i & "专业代码及名称："
br(m, 2) = ar(i, 3) & ar(i, 4)
br(m, 3) = "高校代码及名称："
br(m, 4) = ar(i, 1) & ar(i, 2)
m = m + 1
br(m, 1) = "'" & ar(i, 3)
br(m, 2) = ar(i, 4)
br(m, 3) = ar(i, 1)
br(m, 4) = ar(i, 2)
Next
Sheet3..Resize(m, 4) = br
End Sub

劳动人 发表于 2021-11-11 02:40:29


效果如上
见附件

倾海芙荣 发表于 2021-11-30 02:23:09

公式提取非常好，谢谢

惑明 发表于 2022-1-6 14:35:44

Call dsort 出现： 子过程函数未定义
页: [1]
查看完整版本: 如何生成96个志愿