|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 调整班级()
Set d = CreateObject("scripting.dictionary")
With Sheets("班级调整表")
Ws = .Cells(Rows.Count, 2).End(xlUp).Row
br = .Range("b1:f" & Ws)
End With
With Sheets("列表")
Ws = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:d" & Ws)
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" And Trim(ar(i, 4)) <> "" Then
s = Trim(ar(i, 1)) & "|" & Trim(ar(i, 4))
d(s) = i
End If
Next i
For i = 2 To UBound(br)
ss = Trim(br(i, 1)) & "|" & Trim(br(i, 4))
m = d(ss)
If m <> "" Then
ar(m, 4) = br(i, 5)
End If
Next i
.Range("a1:d" & Ws) = ar
End With
End Sub
|
评分
-
1
查看全部评分
-
|