|
楼主 |
发表于 2020-2-12 14:21
|
显示全部楼层
Sub test6()
Dim r%, i%
Dim arr, brr
Dim d As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set d = CreateObject("scripting.dictionary")
With Worksheets("学生信息总表")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a3:q" & r)
For i = 1 To UBound(arr)
d(arr(i, 4)) = i
Next
End With
With Worksheets("学籍号")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
brr = .Range("a2:n" & r)
For i = 1 To UBound(arr)
If d.exists(brr(i, 2)) Then
m = d(brr(i, 2))
arr(m, 5) = brr(i, 3)
arr(m, 6) = brr(i, 4)
arr(m, 7) = brr(i, 5)
arr(m, 8) = brr(i, 6)
arr(m, 9) = brr(i, 7)
For j = 8 To 14
arr(m, j + 3) = brr(i, j)
Next
End If
Next
End With
With Worksheets("学生信息总表")
.Range("a3").Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub
改了也不行呢 可以帮我在原文件改好吗? |
|