从总成绩中提取本班语文成绩

weiqigreen

autohotey 发表于 2024-11-11 11:22
这不复杂，我感觉公式更好，除非几十个班级。建议增加学号/其他的条件作为唯一值，不然重名时该提取谁？

同感，支持你的观点。在B2单元格输入以下公式即可：
=INDEX(总成绩!$A$2:$D$20,MATCH(A2,总成绩!$A$2:$A$20,0),4)

追随乔乔

感谢各位大佬的支持，方法很多种，已经解决了问题，想用vb的原因是简单，可以做到点一下就可以，不用记函数

我的城市你来过

翁知江安

Sub 提取各班语文成绩()
Dim i, j, k, irow
Dim arr, brr, teparr
Dim sht As Worksheet
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheets("总成绩").[a1].CurrentRegion
For i = 2 To UBound(arr)
   d(arr(i, 1)) = arr(i, 4)
Next
For Each sht In Worksheets
  If sht.Name <> "总成绩" Then
  irow = sht.[a65336].End(xlUp).Row
  brr = sht.[a1].Resize(irow, 1)
  ReDim teparr(1 To irow - 1, 1 To 1)
  For k = 2 To irow
  teparr(k - 1, 1) = d(brr(k, 1))
  Next
  sht.[b2].Resize(irow - 1, 1) = teparr
  End If
Next
MsgBox "ok"
End Sub